Need help in sorting these scripts out and possible better solutions.

[mesteele101]

What I'm looking for the VBScript to do is:

 

1. Checks to make sure it's a Windows XP, Windows 2003, Vista, Windows 7 OS letting the user know the OS is not supported, and exits.

2. Checks to make sure it is a 32bit OS, letting the user know that 32bit OS is only supported, and exits.

3. Set specific registry settings if the OS is XP or 2003

4. Set specific registry settings if the OS is Vista or Windows 7

5. Change the Computer name

6. Create a user account, set access to Administrator, set the password, and set the password to never expire.

6A. If the user account does exist, check the access level and set to Administrator if it's not already set, set the password, and set the password to never expire.

 

All this will be happening on a local system. I found some scripts but I'm not at all savvy on creating scripts. On some of the routines I've found a couple scripts.

 

I'm working on an install guide and these things need to be set on a Fresh OS install prior to starting the guided install. Any help would be greatly appreciated.

 

Is there a way to open a window for the user to inform them of what it is doing along the way?

 

Hopfully someone can get this straightened out, possibly have a better solution, or point me into the correct direction.

 

 

Check for OS - Only allow XP, 2003, Vista, Windows 7

====================================================

msgbox GetOS 

Function GetOS() 
'WMI is required for this script to function 
Dim strComputer, strWMIOS 
'If you only want to use locally, remove the inputbox and make strComputer = "." 
strComputer = Inputbox("Input the name of the remote computer or hit enter for this PC.") 
   If strComputer = "" then 
       strComputer = "." 
   End if 

Dim objWmiService : Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer & "\root\cimv2") 
Dim strOsQuery : strOsQuery = "Select * from Win32_OperatingSystem" 
Dim colOperatingSystems : Set colOperatingSystems = objWMIService.ExecQuery(strOsQuery) 
Dim objOs 
Dim strOsVer 

   For Each objOs in colOperatingSystems 
       strWmios = objOs.Caption & " " & objOs.Version 
   Next 

   Select Case True 
   'Add more info to the 98 and 95 to get the specific version. i.e. 98SE 95 a,b,or c 
       Case InStr(strWmiOS, "2000 Server") > 1 : GetOS = "2KSRV" 
       Case InStr(strWmiOS, "2003, Standard") > 1 : GetOS = "2K3SRV" 
       Case InStr(strWmiOS, "2003, Enterprise") > 1 : GetOS = "2K3ENTSRV" 
      Case InStr(strWmiOS, "2000 Advanced Server") > 1 : GetOS = "2KADVSRV" 
      Case InStr(strWmiOS, "Windows NT") > 1 : GetOS = "NT4" 
      Case InStr(strWmiOS, "Windows 2000") > 1 : GetOS = "W2K" 
      Case InStr(strWmiOS, "Windows XP") > 1 : GetOS = "WXP" 
      Case Else : GetOS = "Unknown" 
   End Select 
End Function 

 

 

Check for 32 bit or 64bit 0nly alloec 32bit

===========================================

On Error Resume Next

Dim WshShell
Dim OsType

Set WshShell = CreateObject("WScript.Shell")

OsType = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

If OsType = "x86" then
wscript.echo "Windows 32bit system detected"
elseif OsType = "AMD64" then
wscript.echo "Windows 64bit system detected"
end if

 

If OsType = "x86" then
wscript.echo "Windows 32bit system detected"
elseif OsType = "AMD64" then
wscript.echo "Windows 64bit system detected"
end if

 

 

info = get_OS_Bit("server1")


wscript.echo info


Function get_OS_Bit(strComputer)
const HKEY_LOCAL_MACHINE = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"
strValueName = "Identifier"


oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
if (instr(strValue,"x86")) then
 Wscript.echo "OS running on : " & strComputer & " is 32 bit."
 get_OS_Bit="32"
elseif (instr(strValue,"64")) then
 get_OS_Bit="64"
 Wscript.echo "OS running on : " & strComputer & " is 64 bit."
else
 get_OS_Bit="NotSure"
 wscript.echo "Not sure."
end if
End Function

 

 

Registry settings to set if XP or 2003

======================================

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"Hidden"=dword:00000001
"HideFileExt"=dword:00000000  

 

 

Registry settings to set if Vista or Windows 7

==============================================

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"EnableLUA"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"Hidden"=dword:00000001
"HideFileExt"=dword:00000000

 

 

Change the computer name

========================

sNewName = "put new name here" 

Set oShell = CreateObject ("WSCript.shell" ) 

sCCS = "HKLM\SYSTEM\CurrentControlSet\" 
sTcpipParamsRegPath = sCCS & "Services\Tcpip\Parameters\" 
sCompNameRegPath = sCCS & "Control\ComputerName\" 

With oShell 
.RegDelete sTcpipParamsRegPath & "Hostname" 
.RegDelete sTcpipParamsRegPath & "NV Hostname" 

.RegWrite sCompNameRegPath & "ComputerName\ComputerName", sNewName 
.RegWrite sCompNameRegPath & "ActiveComputerName\ComputerName", sNewName 
.RegWrite sTcpipParamsRegPath & "Hostname", sNewName 
.RegWrite sTcpipParamsRegPath & "NV Hostname", sNewName 
End With ' oShell 

MsgBox "Computer name changed, please reboot your computer"

 

 

Create a user account, set to Administrator, and change password if user exists, Password never expires

=======================================================================================================

'this section creates the new username if it doesn't exist
QueryForUser("username")

               Set objNetwork = CreateObject("Wscript.Network")
               strComputer = objNetwork.ComputerName
               Set objComputer = GetObject("WinNT://" &strComputer)

               Set colAccounts = GetObject("WinNT://" & strComputer & "")
               Set objUser = colAccounts.Create("user", "username")
               objUser.SetPassword "password"
               objUser.Put "UserFlags", 65600 '
               objUser.SetInfo

'add to administrators group
               Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
               Set objUser = GetObject("WinNT://" & strComputer & "/username,user")
               objGroup.Add(objUser.ADsPath)

          msgbox "username was created"

'this section just changes the password if the user exists
Sub QueryForUser(strUserName)
   Set objlocal = GetObject("WinNT://.")
   objlocal.Filter = Array("user")
   For Each User In objlocal
       If lcase(User.Name) = lcase(strUserName) Then

               strComputer = "."
               Set objUser = GetObject("WinNT://" & strComputer & "/username, user")
               objUser.SetPassword "password"
               objUser.SetInfo

           msgbox User.Name & " already exists." & vbCrLf & "The password was re-set."
           WScript.Quit
       End If    
   Next
End Sub

 

 

 '---------------------------------------------------------------------
'
'   The following script can be used to create a local
'   user account and add it to the local Administrators
'   group. To use, change the strLocalUserName to the desired
'   name and change PASSWORD to password for the account.
'
'   Please note, there is a limitation with the NET USER command
'   where you are unable to set an account as 'never expires'.
'   The bottom part of the script works arounds this.
'
'---------------------------------------------------------------------

Set objShell = CreateObject ("WScript.Shell")
Set Shell = Nothing on error resume next
'---------------------------------------------------------------------
'         Create local account
Set oWshNet = CreateObject("WScript.Network")
strComputer = oWshNet.ComputerName

strLocalUserName = "LocalAdmin"
strGroupname = "Administrators"

WScript.Sleep(900)

On Error Resume Next
Set objUser = GetObject("WinNT://" & strComputer & "/" & strLocalUserName & ",user")
If Err.Number <> 0 Then
' User account does not exist, create it.
objShell.Run "NET USER "&strLocalUserName&" PASSWORD /ADD " _
& "/ACTIVE:YES /COMMENT:""Local IT Support Account"" /FULLNAME:" _
& strLocalUserName &" /expires:never", 0, True
End If

On Error Resume Next ' Try again
Set objUser = GetObject("WinNT://" & strComputer & "/" & strLocalUserName & ",user")
If Err.Number = 0 Then

' Connect to the group
Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroupname)

' Add the user account to the group
' Use error handling in case it is a member already
On Error Resume Next
objGroup.Add(objUser.ADsPath)
WScript.sleep 600
objGroup.Add(objUser.ADsPath)
' Error -2147023518 is "The specified account name is already
' a member of the local group."

End If


'-----------------------------------------
'          Set Account password to never expire
'       This is done externally due to NET USER limitations

Const ufDONT_EXPIRE_PASSWD = &H10000
objUserFlags = objUser.Get("UserFlags")
if (objUserFlags And ufDONT_EXPIRE_PASSWD) = 0 then
 objUserFlags = objUserFlags Or ufDONT_EXPIRE_PASSWD 
 objUser.Put "UserFlags", objUserFlags
 objUser.SetInfo
end if

 

 

TIA....

[mesteele101]

Wow, I was recommended this site. Does anyone have a suggestion where I could get some help on this?

[Steve21]

Wow, I was recommended this site. Does anyone have a suggestion where I could get some help on this?

 

Speaking for myself (Others may disagree), but I'm more than happy to "help" develop a script for you, I understand you may not be script savvy, however you've not even tried to put one together so far. You may not understand all of it, but try a section if it works add a bit more, if it doesn't ask for help on it. Rather than just asking us to make the whole thing.

 

And this is also an IT professional website, It's not really designed to develop software for your company to sell (WINSNORT.com :: Home of the Windows Intrusion Detection System (WinIDS)! from your profile).

 

Steve

[kaujazz]

Try this

 

On Error Resume Next

Dim objWShell

Set objWShell = WScript.CreateObject("WScript.Shell")

getVersionNumber = objWShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
getOsType = objWShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

If getOsType = "x86" Then
  If getVersionNumber = "6.1" Or "6.0" Then
     objWShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 0, REG_DWORD
     objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, REG_DWORD
     objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, REG_DWORD
  ElseIf getVersionNumber = "5.1" Or "5.0" Then
     objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, REG_DWORD
     objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, REG_DWORD
  Else
     Msgbox "The OS is not 7, Vista, XP, or 2K3. The OS Version Number is: " & getVersionNumber
     WScript.Quit
  End If
Else
  Msgbox "Unsupported processor architecture: " & getOsType &". Only 32 bit is supported"
  WScript.Quit
End If

Do
  computerName = InputBox("Enter computer name", "VBScript")
Loop While computerName = ""

If computerName <> "" Then
  If getVersionNumber = "6.1" Or "6.0" Then
     Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
     Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")

     objComputer = "."
     For Each objComputer In colComputers
        err = objComputer.Rename(computerName)
     Next

     If err <> 0 Then
        Msgbox "There was an error renaming the machine. Please restart, and try again."
     Else
        Msgbox "Machine successfully renamed to " & computerName
     End If

     Set objWMIService = Nothing
     Set colComputera = Nothing
  ElseIf getVersionNumber = "5.1" or "5.0" Then
     objWShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", computerName
     objWShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\ParameterS\NV Hostname", computerName
  Else
     Msgbox "The OS is not 7, Vista, XP, or 2K3. The OS Version number is: " & getVersionNumber
  End If
Else
  Msgbox "Please provide a computer name"
End If

Do
  accUserName = InputBox("Enter user name", "VBScript")
  accUserPass = InputBox("Enter user password (can be blank)", "VBScript")
Loop While accUserName = ""

If accUserName <> "" Then
  Set objlocal = GetObject("WinNT://.")
  objlocal.Filter = Array("user")
  For Each User In objlocal
     If LCase(User.Name) = LCase(accUserName) Then
        Set objUser = GetObject("WinNT://./" & accUserName & ", user")
        objUser.SetPassword accUserPass
        objUser.SetInfo
        Msgbox User.Name & " already exists. The password was re-set."
     Else
        Set objComp = GetObject("WinNT://./")
        Set objUser = objComp.Create("user", accUserName)
        objUser.SetPassword accUserPass
        objUser.AccountDisabled=False
        objUser.Put "UserFlags", 65600
        objUser.SetInfo
        Msgbox User.Name & " doesn't exist. Created the account. The password is: " & accUserPass
     End If
  Next
Else
  Msgbox "Please provide a user name"
End If

Msgbox "Restarting computer"
objWShell.Run "shutdown /r /t 10 /f /d P:4:2"

Set objWShell = Nothing

 

Creating user may not work on xp, and renaming computer may not work on 7

[mesteele101]

Speaking for myself (Others may disagree), but I'm more than happy to "help" develop a script for you, I understand you may not be script savvy, however you've not even tried to put one together so far. You may not understand all of it, but try a section if it works add a bit more, if it doesn't ask for help on it. Rather than just asking us to make the whole thing.

 

And this is also an IT professional website, It's not really designed to develop software for your company to sell (WINSNORT.com :: Home of the Windows Intrusion Detection System (WinIDS)! from your profile).

 

Steve

 

I didn’t expect anyone to build a script from scratch, and that’s why I did some research on the web and acquired single scripts for all the items I needed.

 

I’m sure that I could have spent hours in testing, developing and fumbling my way through, but in the 10 years of furnishing FREE installation guides to the public I never needed a script to accomplish any of this. I would just walk the user through step by step on most of these things.

 

I really don’t need to learn Visual Basic; however I can usually hack at some of this stuff. As important as these tasks are, I would rather someone else that knew what they were doing, complete it.

 

The “(WINSNORT.com :: Home of the Windows Intrusion Detection System (WinIDS)! from your profile)”

 

The ‘WinIDS’ is FREE to everyone. If the script will work without user intervention it will be included with the FREE package.

Edited July 29, 2011 by mesteele101

[mesteele101]

kaujazz

 

I have some time on Sunday to give this a try. The Computer renaming did work on 7 but I never tested on XP. I have all the OS's on VM's and will test to see how things go.

 

Thank you so much...

[mesteele101]

I had some time and after running on Windows 7 I got an error:

 

Line: 28

Char: 63

Error: Expected end of statement

 

The line 28 I have is:

   computerName = InputBox("Enter computer name", "VBScript") Loop While computerName = ""

 

For this script the Computer name will always be 'WinIDS', and if the computer name already 'WinIDS' it can jump over the task.

 

The User Name will always be 'Operator', and the password will always be 'p@ss'. I don't want to give them any input options. Basically just do the task if it doesn't exist, and jump over if it does.

 

It might be nice to have a message box open and indicate what task is happening as it progresses. Also a message at the end telling them that a reboot is necessary and a bottom labeled 'Reboot Now...’, so they can know that the process has completed successfully, and an automatic reboot in 60 seconds, with a countdown?

 

This message system is not really necessary, just a thought I had.

 

Thanks...

Edited July 30, 2011 by mesteele101

[Steve21]

I didn’t expect anyone to build a script from scratch, and that’s why I did some research on the web and acquired single scripts for all the items I needed.

 

I’m sure that I could have spent hours in testing, developing and fumbling my way through, but in the 10 years of furnishing FREE installation guides to the public I never needed a script to accomplish any of this. I would just walk the user through step by step on most of these things.

 

I really don’t need to learn Visual Basic; however I can usually hack at some of this stuff. As important as these tasks are, I would rather someone else that knew what they were doing, complete it.

 

The “(WINSNORT.com :: Home of the Windows Intrusion Detection System (WinIDS)! from your profile)”

 

The ‘WinIDS’ is FREE to everyone. If the script will work without user intervention it will be included with the FREE package.

 

I never said spend hours and hours on it, all I said was it would be nice if you attempted it End of day, if you need more scripts in future even learning a bit about them will help you. No-ones expecting you to learn the entire language.

 

Anyway, Your getting the error on line 28 as you copied a line wrong.

 

computerName = InputBox("Enter computer name", "VBScript") Loop While computerName = ""

 

Should be 2 lines of code:

 

computerName = InputBox("Enter computer name", "VBScript") 
Loop While computerName = ""

 

Anyway the edits you wanted (Think it should work, not tested)

 

On Error Resume Next

Dim objWShell

Set objWShell = WScript.CreateObject("WScript.Shell")

getVersionNumber = objWShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
getOsType = objWShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

If getOsType = "x86" Then
  If getVersionNumber = "6.1" Or "6.0" Then
     objWShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 0, REG_DWORD
     objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, REG_DWORD
     objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, REG_DWORD
  ElseIf getVersionNumber = "5.1" Or "5.0" Then
     objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, REG_DWORD
     objWShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, REG_DWORD
  Else
     Msgbox "The OS is not 7, Vista, XP, or 2K3. The OS Version Number is: " & getVersionNumber
     WScript.Quit
  End If
Else
  Msgbox "Unsupported processor architecture: " & getOsType &". Only 32 bit is supported"
  WScript.Quit
End If

[color="#FF0000"]computerName = "WinIDS"[/color]

If computerName <> "" Then
  If getVersionNumber = "6.1" Or "6.0" Then
     Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
     Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")

     objComputer = "."
     For Each objComputer In colComputers
        err = objComputer.Rename(computerName)
     Next

     If err <> 0 Then
        Msgbox "There was an error renaming the machine. Please restart, and try again."
     Else
        Msgbox "Machine successfully renamed to " & computerName
     End If

     Set objWMIService = Nothing
     Set colComputera = Nothing
  ElseIf getVersionNumber = "5.1" or "5.0" Then
     objWShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", computerName
     objWShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\ParameterS\NV Hostname", computerName
  Else
     Msgbox "The OS is not 7, Vista, XP, or 2K3. The OS Version number is: " & getVersionNumber
  End If
Else
  
End If


[color="#FF0000"]accUserName = "Operator"
accUserPass = "p@ss"[/color]

If accUserName <> "" Then
  Set objlocal = GetObject("WinNT://.")
  objlocal.Filter = Array("user")
  For Each User In objlocal
     If LCase(User.Name) = LCase(accUserName) Then
        Set objUser = GetObject("WinNT://./" & accUserName & ", user")
        objUser.SetPassword accUserPass
        objUser.SetInfo
        Msgbox User.Name & " already exists. The password was re-set."
     Else
        Set objComp = GetObject("WinNT://./")
        Set objUser = objComp.Create("user", accUserName)
        objUser.SetPassword accUserPass
        objUser.AccountDisabled=False
        objUser.Put "UserFlags", 65600
        objUser.SetInfo
        Msgbox User.Name & " doesn't exist. Created the account. The password is: " & accUserPass
     End If
  Next
Else
  
End If

Msgbox "Restarting computer"
objWShell.Run "shutdown /r /t 10 /f /d P:4:2"

Set objWShell = Nothing

 

Red bits the bits changed, just directly setting vars, not asking for input (and removed the error messages as they're already being set)

 

In terms of it giving message boxes, and auto restart it's already set to do that, Does that mean it's not working? or you want it to work differently?

 

Steve

[featured_spectre]

Why not pull all scripts in 1 section then have a batch script calling each one individually?

[mesteele101]

Steve21;

 

Creating account it states:

 

Guest doesn't exisit. Create the account. The password is: p@ss

 

Operator1234 doesn't exisit. Create the account. The password is: p@ss

 

Both of those accounts exist prior to running the script.

 

I's not creating the password, but that might be becuse of the above problem?

 

Thanks...

Edited July 30, 2011 by mesteele101

[mesteele101]

Nephilim;

 

I'm thinking to many moving parts. I just need it to go right down the line, execute, and reboot. I'm basically allowing the user to creat the OS any way they want then in one swoop, change or create the items that the WinIDS needs in order to run in a known orderly fashion. I just need to make sure everyone that installs the WinIDS is on the same page before starting the WinIDS install.

[Steve21]

That's because the way the script is written is a bit silly.

 

You're searching through each user aka guest and operator1234.

 

If that name equals operator set password

Else say it doesn't exist (wrong name is given out and make user)

 

Which isn't really correct, as you only check one account before making it. You should loop all accounts, then at end if it doesn't exist make it

 

Steve

[mesteele101]

Steve21;

 

Ok, also it's not writing the registry values?

 

Testing on Windows 7

 

Thanks...

[mesteele101]

I think I'm stuck and I'm not real sure what I'm doing here. I’m not sure what it’s worth but $50 from PayPal is doable? Or, if someone knows a reputable site that does this type of programming for a fee.

 

I was thing a simple menu that the user could either execute a single item, or allow the script to execute all the items at once.

 

1) The first thing it needs to do is check if the OS is Windows XP, Server 2003, or Windows 7

Anything else, it exits stating Your OS version not supported.

 

2) Next it needs to check if its 32bit or 64bit architecture.

Exits if it’s not 32bit stating unsupported processor architecture: . Only 32bit supported.

 

3) Set specific registry settings if the OS version is XP or 2003

 

4) Set specific registry settings if the OS version is Windows 7

 

5) Change the computer name fully based on specific OS (XP, 2003, or Windows 7)

 

5) Check for user account and if there is no ‘Operator’ account, then create it, giving it Administrator access, set the password to ‘pass’, and then set the password to never expire.

If there is already an ‘Operator’ account then give it Administrator access, set the password to ‘pass’, and then set the password to never expire.

 

6) Then to state system will reboot in 60 seconds, and to be SURE to login with user ‘Operator’ and use password ‘pass’.

 

TIA…

[ZeroHour]

Just a heads up mesteele, I will take a gander at options tomorrow but its rather late right now for my brain to work

Welcome to EduGeek btw

[mesteele101]

Leave me a PM if your interested in doing the job before starting and I'll PM back so as not to get multible people doing the task. Please leave a link to your site or some of your work.

 

The script needs to work completly, on all Window OS's (98 and above) and maybe a comment in the script what the the minimum requirements are in order for the script to work.

This needs to be done as a vbs script so as to be able to be added to at a later date, if needed.

 

I have a VMWare OS's installed of 98, 2000, XP (32bit and 64bit), 2003, Windows 7 (32bit & 64bit), and Server 2008 (32bit & 64bit) to test.

 

The task pays a total of $50 dollars to your door using PayPal.

 

TIA...

[featured_spectre]

If you want to look at @ZeroHour and his work, have a look at EduGeek.net - The I.T. Professionals' life line that should satisfy your needs - He has also helped me code up the EduGod Mode application

[mesteele101]

Just a heads up mesteele, I will take a gander at options tomorrow but its rather late right now for my brain to work

Welcome to EduGeek btw

 

Thanks...

[mac_shinobi]

I presume the chunks of code you posted originally all work on the different O/S'es you have mentioned ( xp, 7 and 2003 ) ?

[mesteele101]

I have no idea, but I'm able to test on all.

[ZeroHour]

Right a few questions to see what the best solution is.

1. Do you have the option to use group policy (aka on a domain)?
   
2. Is this for building new hardware yourselves or you pass the scripts to others that have purchased the kit?
   
3. Does it have to be multiple scripts?
   
4. Does it have to be a script or can AutoIT for example do some of the work? (it has some very useful stuff for this and easy to code)
   

Answer these and we should be able to look for a way forward.

[mesteele101]

Right a few questions to see what the best solution is.

1. Do you have the option to use group policy (aka on a domain)?
   
2. Is this for building new hardware yourselves or you pass the scripts to others that have purchased the kit?
   
3. Does it have to be multiple scripts?
   
4. Does it have to be a script or can AutoIT for example do some of the work? (it has some very useful stuff for this and easy to code)
   

Answer these and we should be able to look for a way forward.

 

The guides are designed for a stand alone system.

 

This will be given away and included in the free software support pack. This will ensure that everyone installing one of the free guides will be on the same page prior to starting the install. There is no kits for sale on my site, and any systems sold are custom built to the customer specifications.

 

Everything can be in a single script. Start the VBS it should allow the user to preform one of the tasks or all the tasks. The menu should have a quit, so if they choose to preform one task it will bounce back to the main menu. This doesn't have to be fancy in any way.

 

I may need to add/remove/edit items to the script in the future so the script needs to be editable.

 

TIA...

[Arthur]

A few questions...

1. Do you intend on supporting 64-bit OSs in the near future?
   
2. Why does the computer name have to be changed? Seems a bizarre requirement (unless this is optional).
   
3. Does the script have to disable UAC? Is there any particular reason why it can't be kept on?
   

[mesteele101]

A few questions...

1. Do you intend on supporting 64-bit OSs in the near future?
   
2. Why does the computer name have to be changed? Seems a bizarre requirement (unless this is optional).
   
3. Does the script have to disable UAC? Is there any particular reason why it can't be kept on?
   

 

Yes, 64bit will be supported but the main engine is only 32bit at this time, and a 64bit version is coming but has yet to be started on.

 

If I don't change the computer name before the install, then I have to guide them through setting 'winids' in the hosts file.

 

Disabeling UAC will allow them to use the CMD in Administartor mode, and bypasses a lot of prompts.

[mesteele101]

Well, it looks like the thread went dead. Does anyone know of a reputable site where I can hire a programmer, or possibly know know of a programmer for Visual Basic that might want to do this?