Help - Search - Members - Calendar
Full Version: need help here for vbs scripting
ieXbeta Board > Tech > Developer Center
Jason89
Dec 12 2007, 03:17
Really need some help here .. i would like to ask that whether is it possible to auto create the following registry(pc name) using vbs script is like something
PC NAME:nxsubbeh1
PC NAME:nxsubbeh2
and so on
cause currently im using the *IF* and *THEN*
and i need the registry in the same folder wit it too ..
Click to view attachmentClick to view attachment
gunsmokingman
Dec 17 2007, 02:21
QUOTE(Jason89 @ Dec 12 2007, 03:17) *

Really need some help here .. i would like to ask that whether is it possible to auto create the following registry(pc name) using vbs script is like something
PC NAME:nxsubbeh1
PC NAME:nxsubbeh2
and so on
cause currently im using the *IF* and *THEN*
and i need the registry in the same folder wit it too ..
Click to view attachmentClick to view attachment

A better solution might be a HTA with a listbox to select a computer number.
I made this hta that will show a listbox and when you select a number makes
this reg file. It then runs that reg file, then deletes the file.
QUOTE

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName]
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName]
"ComputerName"="nxsubbeh100"
"[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName]
"ComputerName"="nxsubbeh100"
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters]
"NV Hostname"="nxsubbeh100"
"Hostname"="nxsubbeh100"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"DefaultDomainName"="nxsubbeh100"
"AltDefaultDomainName"="nxsubbeh100"


Save As ComputerNumber.hta
QUOTE
CODE

<!--
Created By Gunsmokingman  December 16 2007
-->
<HTML><HEAD>
<TITLE>Computer Number</TITLE>
<HTA:APPLICATION ID='Computer Number'
  Scroll='No'            
  SCROLLFLAT ='No'        
  SingleInstance='Yes'
  SysMenu='Yes'
  MaximizeButton='No'
  MinimizeButton='Yes'    
  Border='Thin'
  BORDERSTYLE ='complex'  
  INNERBORDER ='Yes'
  Caption='Yes'  
  WindowState='Normal'
  APPLICATIONNAME='Computer Number'
  Icon='%SystemRoot%\explorer.exe'>
<STYLE Type="text/css">
   Body
   {
    Font-Size:8.05pt;
    Font-Weight:Bold;
    Font-Family:segoeui,helvetica,verdana,arial,Poor Richard;
    Color:#001254;
    BackGround-Color:Transparent;
    Filter:progid:DXImageTransform.Microsoft.Gradient
    (StartColorStr='#fdf7f1',endColorStr='#d1cbc5');
    Margin-Top:1;
    Margin-Bottom:1;
    Margin-Left:4;
    Margin-Right:4;
    Padding-Top:1;
    Padding-Bottom:1;
    Padding-Left:4;
    Padding-Right:4;
    Text-Align:Center;
    Vertical-Align:Top;
    Border-Top:2px Solid #cbc7c3;
    Border-Bottom:3px Solid #a6a29e;
    Border-Left:2px Solid #bcb8b4;
    Border-Right:3px Solid #b2aeaa;
   }
  Select.Bx1
   {
    Font-Size:7.95pt;
    Font-Weight:Bold;
    Font-Family:segoeui,helvetica,verdana,arial,Poor Richard;
   }
  .Sel1
   {
    BackGround:#D9D9D9;
    Color:#3A3A3A;
   }
  .Sel2
   {
    BackGround:#E9E9E9;
    Color:#235779;
   }
</STYLE>
  <script Language="VBScript">
   window.resizeTo 225,131
   Dim Act :Set Act = CreateObject("Wscript.Shell")
   Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
   Dim A1, A2
'-> Select List Box Item
   Function ComputerNumberSelect()
    For i = 0 to (ComputerNumber.Options.Length - 1)
     If (ComputerNumber.Options(i).Selected) Then
'-> Does Nothing But To Avoid This Being Selected
      If ComputerNumber.Options(i).Value = "Computer Number" Then
       Exit For
        Exit Function
        Else
'-> Value From Select Item Varible
         A1 = ComputerNumber.Options(i).Value
'-> Break Up The Value From The Selected Item        
         A2 = Replace(A1,".reg","")
         MakeRunReg()
'-> This Checks To Make Sure The File Was Written
         If Fso.FileExists(A1) Then
         Act.Run("regedit /s " & Chr(34) & A1 & Chr(34)),0,true
         Fso.DeleteFile(A1)
        Else
         alert("Missing this file " & A1)
       End If
      End If  
     End If
    Next
   Exit Function
   End Function
'-> Create The Reg File With The Varibles A1 & A2
   Function MakeRunReg()
    Set Ts = Fso.CreateTextFile(A1)
    Ts.WriteLine "Windows Registry Editor Version 5.00"
    Ts.WriteLine ""
    Ts.WriteLine "[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName]"
    Ts.WriteLine "[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName]"
    Ts.WriteLine """ComputerName""=""nxsubbeh"&A2&Chr(34)
    Ts.WriteLine """[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName]"
    Ts.WriteLine """ComputerName""=""nxsubbeh"&A2&Chr(34)
    Ts.WriteLine "[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters]"
    Ts.WriteLine """NV Hostname""=""nxsubbeh"&A2&Chr(34)
    Ts.WriteLine """Hostname""=""nxsubbeh"&A2&Chr(34)
    Ts.WriteLine "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]"
    Ts.WriteLine """DefaultDomainName""=""nxsubbeh"&A2&Chr(34)
    Ts.WriteLine """AltDefaultDomainName""=""nxsubbeh"&A2&Chr(34)
    Ts.Close()  
   Exit Function
   End Function
  </SCRIPT>
</HEAD><BODY Scroll='No'>Select Your Computer Number
<!-- -->
  <SELECT size='5.25' name='ComputerNumber' style='width:105pt;' Class='Bx1'
  OnChange='ComputerNumberSelect()'>
<!-- 001 - 009 -->
   <OPTION Value='Computer Number' Class='Sel1'> Computer Number</OPTION>
   <OPTION Value='1.reg' Class='Sel2'>  001</OPTION>
   <OPTION Value='2.reg' Class='Sel1'>  002</OPTION>
   <OPTION Value='3.reg' Class='Sel2'>  003</OPTION>
   <OPTION Value='4.reg' Class='Sel1'>  004</OPTION>
   <OPTION Value='5.reg' Class='Sel2'>  005</OPTION>
   <OPTION Value='6.reg' Class='Sel1'>  006</OPTION>
   <OPTION Value='7.reg' Class='Sel2'>  007</OPTION>
   <OPTION Value='8.reg' Class='Sel1'>  008</OPTION>
   <OPTION Value='9.reg' Class='Sel2'>  009</OPTION>
<!-- 010 - 019 -->
   <OPTION Value='10.reg' Class='Sel1'>  010</OPTION>
   <OPTION Value='11.reg' Class='Sel2'>  011</OPTION>
   <OPTION Value='12.reg' Class='Sel1'>  012</OPTION>
   <OPTION Value='13.reg' Class='Sel2'>  013</OPTION>
   <OPTION Value='14.reg' Class='Sel1'>  014</OPTION>
   <OPTION Value='15.reg' Class='Sel2'>  015</OPTION>
   <OPTION Value='16.reg' Class='Sel1'>  016</OPTION>
   <OPTION Value='17.reg' Class='Sel2'>  017</OPTION>
   <OPTION Value='18.reg' Class='Sel1'>  018</OPTION>
   <OPTION Value='19.reg' Class='Sel2'>  019</OPTION>
<!-- 020 - 029 -->
   <OPTION Value='20.reg' Class='Sel1'>  020</OPTION>
   <OPTION Value='21.reg' Class='Sel2'>  021</OPTION>
   <OPTION Value='22.reg' Class='Sel1'>  022</OPTION>
   <OPTION Value='23.reg' Class='Sel2'>  023</OPTION>
   <OPTION Value='24.reg' Class='Sel1'>  024</OPTION>
   <OPTION Value='25.reg' Class='Sel2'>  025</OPTION>
   <OPTION Value='26.reg' Class='Sel1'>  026</OPTION>
   <OPTION Value='27.reg' Class='Sel2'>  027</OPTION>
   <OPTION Value='28.reg' Class='Sel1'>  028</OPTION>
   <OPTION Value='29.reg' Class='Sel2'>  029</OPTION>
<!-- 030 - 039 -->
   <OPTION Value='30.reg' Class='Sel1'>  030</OPTION>
   <OPTION Value='31.reg' Class='Sel2'>  031</OPTION>
   <OPTION Value='32.reg' Class='Sel1'>  032</OPTION>
   <OPTION Value='33.reg' Class='Sel2'>  033</OPTION>
   <OPTION Value='34.reg' Class='Sel1'>  034</OPTION>
   <OPTION Value='35.reg' Class='Sel2'>  035</OPTION>
   <OPTION Value='36.reg' Class='Sel1'>  036</OPTION>
   <OPTION Value='37.reg' Class='Sel2'>  037</OPTION>
   <OPTION Value='38.reg' Class='Sel1'>  038</OPTION>
   <OPTION Value='39.reg' Class='Sel2'>  039</OPTION>
<!-- 040 - 049 -->
   <OPTION Value='40.reg' Class='Sel1'>  040</OPTION>
   <OPTION Value='41.reg' Class='Sel2'>  041</OPTION>
   <OPTION Value='42.reg' Class='Sel1'>  042</OPTION>
   <OPTION Value='43.reg' Class='Sel2'>  043</OPTION>
   <OPTION Value='44.reg' Class='Sel1'>  044</OPTION>
   <OPTION Value='45.reg' Class='Sel2'>  045</OPTION>
   <OPTION Value='46.reg' Class='Sel1'>  046</OPTION>
   <OPTION Value='47.reg' Class='Sel2'>  047</OPTION>
   <OPTION Value='48.reg' Class='Sel1'>  048</OPTION>
   <OPTION Value='49.reg' Class='Sel2'>  049</OPTION>
<!-- 050 - 059 -->
   <OPTION Value='50.reg' Class='Sel1'>  050</OPTION>
   <OPTION Value='51.reg' Class='Sel2'>  051</OPTION>
   <OPTION Value='52.reg' Class='Sel1'>  052</OPTION>
   <OPTION Value='53.reg' Class='Sel2'>  053</OPTION>
   <OPTION Value='54.reg' Class='Sel1'>  054</OPTION>
   <OPTION Value='55.reg' Class='Sel2'>  055</OPTION>
   <OPTION Value='56.reg' Class='Sel1'>  056</OPTION>
   <OPTION Value='57.reg' Class='Sel2'>  057</OPTION>
   <OPTION Value='58.reg' Class='Sel1'>  058</OPTION>
   <OPTION Value='59.reg' Class='Sel2'>  059</OPTION>
<!-- 060 - 069 -->
   <OPTION Value='60.reg' Class='Sel1'>  060</OPTION>
   <OPTION Value='61.reg' Class='Sel2'>  061</OPTION>
   <OPTION Value='62.reg' Class='Sel1'>  062</OPTION>
   <OPTION Value='63.reg' Class='Sel2'>  063</OPTION>
   <OPTION Value='64.reg' Class='Sel1'>  064</OPTION>
   <OPTION Value='65.reg' Class='Sel2'>  065</OPTION>
   <OPTION Value='66.reg' Class='Sel1'>  066</OPTION>
   <OPTION Value='67.reg' Class='Sel2'>  067</OPTION>
   <OPTION Value='68.reg' Class='Sel1'>  068</OPTION>
   <OPTION Value='69.reg' Class='Sel2'>  069</OPTION>
<!-- 070 - 079 -->
   <OPTION Value='70.reg' Class='Sel1'>  070</OPTION>
   <OPTION Value='71.reg' Class='Sel2'>  071</OPTION>
   <OPTION Value='72.reg' Class='Sel1'>  072</OPTION>
   <OPTION Value='73.reg' Class='Sel2'>  073</OPTION>
   <OPTION Value='74.reg' Class='Sel1'>  074</OPTION>
   <OPTION Value='75.reg' Class='Sel2'>  075</OPTION>
   <OPTION Value='76.reg' Class='Sel1'>  076</OPTION>
   <OPTION Value='77.reg' Class='Sel2'>  077</OPTION>
   <OPTION Value='78.reg' Class='Sel1'>  078</OPTION>
   <OPTION Value='79.reg' Class='Sel2'>  079</OPTION>
<!-- 080 - 089 -->
   <OPTION Value='80.reg' Class='Sel1'>  080</OPTION>
   <OPTION Value='81.reg' Class='Sel2'>  081</OPTION>
   <OPTION Value='82.reg' Class='Sel1'>  082</OPTION>
   <OPTION Value='83.reg' Class='Sel2'>  083</OPTION>
   <OPTION Value='84.reg' Class='Sel1'>  084</OPTION>
   <OPTION Value='85.reg' Class='Sel2'>  085</OPTION>
   <OPTION Value='86.reg' Class='Sel1'>  086</OPTION>
   <OPTION Value='87.reg' Class='Sel2'>  087</OPTION>
   <OPTION Value='88.reg' Class='Sel1'>  088</OPTION>
   <OPTION Value='89.reg' Class='Sel2'>  089</OPTION>
<!-- 090 - 099 -->
   <OPTION Value='90.reg' Class='Sel1'>  090</OPTION>
   <OPTION Value='91.reg' Class='Sel2'>  091</OPTION>
   <OPTION Value='92.reg' Class='Sel1'>  092</OPTION>
   <OPTION Value='93.reg' Class='Sel2'>  093</OPTION>
   <OPTION Value='94.reg' Class='Sel1'>  094</OPTION>
   <OPTION Value='95.reg' Class='Sel2'>  095</OPTION>
   <OPTION Value='96.reg' Class='Sel1'>  096</OPTION>
   <OPTION Value='97.reg' Class='Sel2'>  097</OPTION>
   <OPTION Value='98.reg' Class='Sel1'>  098</OPTION>
   <OPTION Value='99.reg' Class='Sel2'>  099</OPTION>
<!-- 100 -->
   <OPTION Value='100.reg' Class='Sel1'>  100</OPTION>
  </SELECT>
</BODY></HTML>


Here is the Hta in a rar file for you.
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Invision Power Board © 2001-2008 Invision Power Services, Inc.