Automated ZEN Imaging: The Next Step
Novell Cool Solutions: Trench
By Jim Shank
Digg This -
Posted: 3 Apr 2003
Here's an exceptionally detailed explanation of how to deploy Windows 2000 to workstations and get them up and running on the desktops of the employees in a hurry. Jim Shank takes you through the entire process he developed at his company, and along the way offers excellent insight into how to use many different tools and bits of information to create a unique solution. (Which is, after all, our our whole raison d'etre here at Cool Solutions.) Thanks, Jim!
Update: We've added all the files Jim shared in this solution to a zip file for your convenience, so the line breaks on this page don't drive you mad. See the Files section.
Like many of you, I work for a medium-size organization using ZENworks imaging in order to deploy stock workstations to our employees. I wanted to be able to deploy a Windows 2000 PC with Novell Client to the desktop without needing to revisit it for any additional configuration. In fact, if it weren't for the need to set the PC to boot from the NIC and put the asset tag in BIOS, I could have the systems shipped directly to the location. The goal was to create an image that when deployed would have the following abilities:
- Automatically join the local domain
- Automatically name itself (something identifiable)
- Support changes within the post image scripting without requiring a re-image
- Update ZIS and create a workstation object
I started this process reviewing the excellent article Getting ZEN Imaging to work with SYSPREP by Michael J. Prentice. I used his steps to begin the process but along the way, realized that batch scripting, without enhancements, was not going to get me far enough. I needed a scripting platform with maximum flexibility with minimum additional software installation. After reviewing KiXtart, Perl for Windows and VBScript, I settled on VBScript as my automation language of choice. The main benefit being that it runs natively without any additional software installs and gives quick and dirty access to the file system and registry. Without further introduction, let's look at the imaging process outline (that's your cue to print this out, get a drink and come back. Then use the printout of the files to compare to the process outlined next):
- The workstation is received; first thing we do is place an asset tag on the system and boot to BIOS. Set the boot order to NIC 1st and then enter the asset tag in the BIOS in the System ID's section (we use Compaq Evo slim lines). The PC is then warehoused or immediately deployed to the employee's desktop.
- Once deployed, the PC is booted for the first time. ZENworks policies determine that the box doesn't have a workstation object and therefore, begins the imaging process.
- The image is received and the machine automatically reboots.
- Sysprep runs in fully automatic configuration mode.
- Sysprep checks for different hardware than the base image and locates the drivers in the OemPNPDriversPath and adds any new hardware to the system.
- Sysprep licenses the product.
- Sysprep does basic network configuration including activating DHCP and joining the Imaging Workgroup (we will join the domain later).
- Sysprep names the machine AURORA-xxxxxxx where xxxxxxx is a randomly generated string by Sysprep. The aurora comes from the first word in the OrgName title in sysprep.inf.
- Sysprep sets up Autologin so we can do fully automated post imaging scripting.
- Sysprep sets the runonce key to run 1strun.vbs on the first full boot (after Sysprep).
- The machine reboots and performs 1strun.vbs.
- 1strun.vbs logs to the event log that the post imaging scripting has started.
- 1strun.vbs logs to the event log that 1strun.vbs has started.
- 1strun.vbs puts ziswin.exe back into the registry so that it will run on the next boot, it is removed directly prior to imaging the system so that it doesn't interfere with Sysprep.
- 1strun.vbs removes the desktop update component so that we can update the desktop information stamp at will instead of on each run (this will be covered in a future article).
- 1strun.vbs sets the runonce key to run 2ndrun.vbs on the next boot.
- 1strun.vbs removes the desktop to show that we are in an automated imaging environment, this also acts as a failsafe should imaging fail, it would be extremely obvious when the desktop is missing.
- 1strun.vbs checks for the existence of c:\sysinfo\debug.txt, I can include this file in the image if I want to pause for debugging. Nice if you want to see what has happened and adjust the timing of events during testing.
- 1strun.vbs logs to the event log that 1strun.vbs has completed.
- 1strun.vbs uses ncshtdwn to reboot the system (more info on ncshtdwn later).
- The machine reboots and performs 2ndrun.vbs.
- 2ndrun.vbs logs to the event log that 2ndrun.vbs has started.
- 2ndrun.vbs clears out the current domain name so that there is no error on reboot (from Michael J. Prentice's article).
- 2ndrun.vbs determines the current name of the machine by reading from registry.
- 2ndrun.vbs uses some logic to determine if the machine has had its name corrected or not. In Sysprep, we use the auto naming system which allows Sysprep to generate a random name with a fixed prefix. By testing for this prefix, we are able to determine if the machine has been named or not. Most of this logic is designed so that this scripting can be run if a machine has recovered its information from ZIS. A feature that I haven't gotten working yet.
- 2ndrun.vbs reads in from WMI which is the interface for accessing BIOS information from the OS, this is some of the real magic.
- 2ndrun.vbs then checks the asset tag to verify it has been properly entered and formatted correctly. If not, we preset the (hopefully) desktop tech with the ability to manually correct the name and then fix it in BIOS and log the event to the event log. If it is named correctly we use ENGL Zcnc Lite to:
- Name the machine from the BIOS asset tag.
- Remove the ZENwsimport record from the hosts file (more on this later).
- Force the change and do it without prompting.
- 2ndrun.vbs sets the runonce key to run 3rdrun.vbs on the next boot.
- 2ndrun.vbs checks for the existence of c:\sysinfo\debug.txt, once again, for debugging purposes and pauses if found.
- 2ndrun.vbs logs to the event log that 2ndrun.vbs has completed.
- 2ndrun.vbs uses ncshtdwn to reboot the system.
- The machine reboots and performs 3rdrun.vbs. This is the meat of the post imaging process and as such, I decided to throw in a control that allows me to put up a progress bar and message. This utility is a hack for VBScript that allows you to show dialog boxes while your script runs, it's not necessary but provides that ?wow? factor many of us thrive on. As it is not necessary, I will not comment on it directly, you may use the in-line commenting included with the files and determine if you want it in your scripts.
- 3rdrun.vbs uses netdom to join the domain; this utility is included in the Windows 2000 support tools. Netdom was updated in SP3 and can be found here.
- 3rdrun.vbs uses the return code generated by netdom to determine if we were successful or not, if so, we log to the event log that we successfully joined the domain. As an added benefit, I have found that if you use netdom to rejoin a domain it will not create the dreaded trust relationship broken error that is often a result of joining a domain in which the workstation is already listed. If there was an error, 3rdrun.vbs will log the error code to the event log and then preset us with a dialog requesting that we join the domain manually and then click ok on our message box.
- 3rdrun.vbs will check once again to see if we are in debug mode and, if so, tell us what the result code was of running netdom.
- 3rdrun.vbs then implements a fix for the auto admin logon process (from Michael J. Prentice's article).
- 3rdrun.vbs locks down the c:\winnt\zmg directory so that only administrators can read it. Since we have stored the password in plain text to join the domain, we don't want users snooping around in this directory (from Michael J. Prentice's's article).
- 3rdrun.vbs updates the service pack source path in registry. Oddly enough, when Sysprep is run, the path to where the slipstreamed service pack files are stored is reset to the CDROM drive. This can be repaired by updating the registry value.
- 3rdrun.vbs runs another script, locationprofiletz.vbs. This script is responsible for managing location specific information on the system. It is based on determining the users IP address and then comparing it to an array to find out what location it is in. It then updates the time zone information and applies the correct wallpaper for the location. I have also incorporated some code to remove IPX in our pure IP offices. I will include the entire file later on.
- 3rdrun.vbs updates the profiles path in the registry. In a previous attempt to move the profiles directory to the users home drive, I found out that the mapping doesn't happen until after the OS needs access to create the profiles directory. I left this key in so that I could update it should a solution ever be found.
- 3rdrun.vbs uses vidchng.exe to set the desktop resolution and depth to our corporate standard. I found this jewel on appdeploy.com, written by Tony Pombo. It can be found here.
- 3rdrun.vbs updates the desktop information stamp (a future article).
- 3rdrun.vbs puts the desktop information stamp utility back in startup.
- 3rdrun.vbs re-enables the desktop so that we have a visual queue that the imaging process completed running all the login scripts.
- 3rdrun.vbs checks for the existence of c:\sysinfo\debug.txt, once again, for debugging purposes and pauses if found.
- 3rdrun.vbs logs to the event log that 3rdrun.vbs has completed.
- 3rdrun.vbs logs to the event log that the post imaging scripting has completed.
- 3rdrun.vbs uses ncshtdwn to reboot the system.
If you have made it this far, congratulations, that was the bulk of what happens. Next we will review the preparation work that goes into getting your image ready for this process. You might think it strange to put the prep work after the actual imaging but I thought it would make more sense to see why you need it. Here are the few changes that need to be made before imaging.
- Remove HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\System\ziswin.exe from the registry. Use the ZISWIN switches and functionality article listed in the tools section.
- In the hosts file, add ZENwsimport to the line that resolves localhost. This will keep the workstation from creating a workstation object until we are done changing the name. This line is eventually removed by zcnc lite. (e.g. 127.0.0.1 localhost ZENwsimport)
- Run Sysprep with the Sysprep.inf options shown below.
There are quite a few tools and articles on how to use them that are included in this process. Here is a list of everything you need and where it is from. (Includes articles that I found useful in learning these tools.)
- Getting ZEN Imaging to work with SYSPREP by Michael J. Prentice
- ZISWIN switches and functionality
- ENGL ZCNC Lite by Heath Upton
- Microsoft's NETDOM from Windows 2000 Support Tools
- Video Resolution Changer 1.0 by Tony Pombo
I have tried to give credit to the sources of the code and utilities used within this program. If there is anyone I have missed, please contact me directly and I will gladly add credit or remove the reference to your utility/code upon request. All information contained in this document is expressed by Jim Shank and does not implicitly or explicitly represent official positions and policies of Aurora Loan Services.
This information is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY, AND FITNESS FOR A PARTICULAR PURPOSE.
NEW: Here are all the files in one zip file, for your convenience.
;SetupMgrTag [Unattended] DriverSigningPolicy=Ignore OemSkipEula=Yes OemPNPDriversPath=\Compaq\NIC;\Compaq\video;\ Compaq\WBEM;\Compaq\Audio;\Compaq\eak\drv2k;\ Compaq\misc1;\Compaq\Misc4;\Compaq\Misc3;\ Compaq\Misc5;\Compaq\SP21181\SMAXWDM\W2K_XP\;\ Compaq\O2Micro\Win2K [GuiUnattended] AdminPassword=verysecurepassword AutoLogon = Yes AutoLogonCount = 3 OemSkipWelcome=1 OEMSkipRegional=1 OEMDuplicatorstring="My Image 2.0 1/27/03" TimeZone=010 [UserData] FullName="Aurora User" ComputerName=* OrgName=Aurora Company productid=XXXXX-XXXXX-XXXXX-XXXXX-XXXXX [TapiLocation] CountryCode=1 [RegionalSettings] LanguageGroup=1 Language=00000409 [Identification] JoinWorkgroup=Imaging [Networking] InstallDefaultComponents=Yes [GUIRunOnce] Command0="c:\winnt\zmg\1strun.vbs" [SysprepCleanup]
'1strun.vbs 'Written by Jim Shank 1/28/03 Option Explicit Dim WshShell, oFso Set WshShell=Wscript.CreateObject("Wscript.shell") Set oFso = CreateObject("Scripting.FileSystemObject") WshShell.LogEvent 0, "Post imaging scripting started" WshShell.LogEvent 0, WScript.ScriptName & " started" WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\ CurrentVersion\Winlogon\System","ziswin.exe" WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\ Microsoft\Windows\CurrentVersion\Run\ALSUpdate" WshShell.RegWrite "HKCU\Software\Microsoft\Windows\ CurrentVersion\Runonce\2run","c:\winnt\zmg\2ndrun.vbs" WshShell.RegWrite "HKLM\Software\Microsoft\Windows\ CurrentVersion\Policies\Explorer\NoDesktop",1,"REG_DWORD" if (oFso.FileExists("C:\sysinfo\debug.txt")) then WshShell.LogEvent 4, "Entering debug mode scripting" msgbox "Pausing for debug" end if WshShell.LogEvent 0, WScript.ScriptName & " completed successfully" WshShell.Run "c:\winnt\zmg\ncshtdwn.exe /7"
'The purpose of this script is to determine if the machine has had ZIS recovered on it yet, and if not, 'run zcnc, recover the asset tag from BIOS and name the machine. Added the rest of 2ndrun.bat so we can 'internally handle the timing. 'Written by Jim Shank 1/28/03 Option Explicit Dim WshShell, current_name, oFso, bios, SystemAT,oWMI Set WshShell=Wscript.CreateObject ("Wscript.shell") Set oFso = CreateObject ("Scripting.FileSystemObject") WshShell.LogEvent 0, WScript.ScriptName & " started" 'Clear out the current domain name so that there is no error on reboot WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\ CurrentVersion\Winlogon\DefaultDomainName","" 'Find out the current name of the machine on the next line current_name = WshShell.RegRead ("HKLM\SYSTEM\CurrentControlSet\ Control\ComputerName\ ActiveComputerName\ComputerName") 'If the machine hasn't been ZISed, it will read Aurora-<random characters>, otherwise it will have ALS as the 'beginning of the asset tag. if left(current_name,3) <> "ALS" then ' This logic will check before we set the machine name from BIOS that the machine name actually is in BIOS Set oWMI = GetObject("winmgmts:") For Each bios In oWMI.InstancesOf ("Win32_SystemEnclosure") SystemAT = bios.SMBIOSAssetTag Next if left(SystemAT,3) <> "ALS" then WshShell.LogEvent 1, "Malformed BIOS asset tag: " & SystemAT & ". Enabling manual machine name dialog." msgbox "This workstation does not have the correctly formed asset tag defined in BIOS, you must manually name this PC. Please call x2600 or 000-555-1212 for assistance. If you are with PC Support click OK to continue and rename the PC to the asset tag.",vbOKOnly,"Critical Imaging Error" WshShell.Run "c:\winnt\zmg\Zcnc.exe /remZEN /m:cccnnnn",7 else WshShell.Run chr(34) & "c:\winnt\zmg\Zcnc.exe" & chr(34) & " /q /remZEN /forcerun /wmi:" & chr(34) & "Win32_SystemEnclosure, SMBIOSAssetTag" & chr(34) & " /sn:" & chr(34) & chr(34),7 WshShell.LogEvent 0, "ZCNC Rename completed" end if end if WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\ Runonce\3run", "c:\winnt\zmg\3rdrun.vbs" if (oFso.FileExists("C:\sysinfo\debug.txt")) then msgbox "Pausing for debug" end if WshShell.LogEvent 0, WScript.ScriptName & " completed successfully" WshShell.Run "c:\winnt\zmg\ncshtdwn.exe /7"
' ALS Imaging Script with progress ' Written by Jim Shank ' 1/29/03 Option Explicit Dim WshShell, i, oFso, returncode Set WshShell=Wscript.CreateObject("Wscript.shell") Set oFso = CreateObject("Scripting.FileSystemObject") Dim oNMD : Call Instantiate(oNMD, "wshLtWtNonModalDialog.ucNMD", "oNMD_") ' as Object ' --- module level variables --------------------- Dim m_btnStartID ' as integer Dim m_btnCancelID ' as integer ' Dim bCloseFlag ' t/f if user closed the form... Dim bStartClick, bCancelClick ' as boolean Dim iSetPoint, pctDone Dim m_MSTitles(10), m_MSRemark(10) ' ' --- constant declarations ---------------------- Const sDlgCaption = "ALS Post-imaging Scripting" ' --- end of declarations and constants ---------- ' ================================================ ' === MAIN LINE SCRIPT LOGIC ===================== ' ================================================ WshShell.LogEvent 0, WScript.ScriptName & " started" ' Create the Form, and add the controls... Call Create_Form(sDlgCaption) oNMD.AddLine "Beginning post imaging configuration " ' space oNMD.AddLine "Process Initiated" oNMD.PctComplete 5 ' advance progbar oNMD.AddLine "Joining the domain..." ' Joins the domain returncode = WshShell.Run ("c:\winnt\zmg\netdom.exe join %computername% /Domain:ALS-TREE /UserD: secureaccount /PasswordD:securepassword",7,TRUE) if returncode = 0 then WshShell.LogEvent 4, "Netdom successfully joined the domain" end if if returncode <> 0 then WshShell.LogEvent 1, "Netdom was unable to join the domain. Error code was: " & returncode wshshell.popup "Unable to join the domain!!! The netdom join command failed. You will need to manually join the domain now. When you are finished, click ok on this box. If you have any questions about this error, please contact the help desk.",,"Critical Imaging Error", 0 + 16 end if if (oFso.FileExists("C:\sysinfo\debug.txt")) then msgbox "Netdom return code " & returncode end if oNMD.AddLine "Updating Auto-Admin Logon..." oNMD.PctComplete 40 ' advance progbar ' ###Implements a fix for the Auto Admin Login count bug and stop the Auto Admin Login.### WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\ CurrentVersion\Winlogon\AutoAdminLogon","0" WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\ CurrentVersion\Winlogon\DefaultUserName","" WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\ CurrentVersion\Winlogon\DefaultPassword","" WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\ CurrentVersion\Winlogon\DefaultDomainName","" oNMD.PctComplete 55 ' Lockdown the ZMG directory oNMD.AddLine "Updating security..." WshShell.Run "cmd /c " & chr(34) & "echo y|cacls c:\winnt\ zmg /t /g BUILTIN\Administrators:F" & chr(34),7 WshShell.Run "cmd /c " & chr(34) & "echo y|cacls c:\winnt\ zmg /t /e /g " & chr(34) & "NT Authority" & chr(34) & "\ System:F" & chr(34) & "&&",7 oNMD.PctComplete 60 ' Fix Service Pack Source Path Key oNMD.AddLine "Fixing Service Pack Source Path..." WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\ CurrentVersion\Setup\SourcePath","c:\" WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\ CurrentVersion\Setup\ServicePackSourcePath","c:\" oNMD.PctComplete 65 ' Update Location Profile oNMD.AddLine "Updating Location Profile..." WshShell.Run "c:\sysinfo\ locationtzprofile.vbs",7 oNMD.PctComplete 70 ' Update Profile Path oNMD.AddLine "Updating profile path..." WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\ Windows NT\CurrentVersion\ ProfileList\ProfilesDirectory"," %systemdrive%\Documents and Settings", "REG_EXPAND_SZ" oNMD.PctComplete 75 'Apply Corporate display standards oNMD.AddLine "Applying Corporate display standards..." WshShell.Run "c:\sysinfo\vidchng -q 1024x768x32@75",7 oNMD.PctComplete 80 ' Apply Corporate desktop oNMD.AddLine "Applying Corporate desktop..." WScript.Sleep 3000 WshShell.Run "c:\sysinfo\ CorpDT.vbs",7,TRUE oNMD.PctComplete 85 oNMD.AddLine "Re-enabling CorpDT Autorun..." WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\ CurrentVersion\Run\ALSUpdate", "C:\sysinfo\CorpDT.vbs" oNMD.PctComplete 90 oNMD.AddLine "Re-enabling Desktop..." WshShell.RegWrite "HKLM\Software\Microsoft\Windows\ CurrentVersion\Policies\ Explorer\NoDesktop",0,"REG_DWORD" oNMD.PctComplete 95 oNMD.AddLine "Completed Successfully" oNMD.PctComplete 100 if (oFso.FileExists ("C:\sysinfo\debug.txt")) then msgbox "Pausing for debug" end if oNMD.ShowDialog False ' clean up oNMD... oNMD.UnloadDialog set oNMD = Nothing WshShell.LogEvent 0, WScript.ScriptName & " completed successfully" WshShell.LogEvent 0, "Post imaging scripting completed" WshShell.Run "c:\winnt\zmg\ncshtdwn.exe /7" WScript.Quit ' end of script ' ================================================ ' === SUBROUTINES FOLLOW ========================= ' ================================================ ' --- this code creates the form and adds the controls --- Sub Create_Form(sCaption) Dim wdForm, htForm, wdBtn, htBtn, wdBtnSp ' as long Const sLBLabel = "Configuring System" ' do some geometry calculations... wdForm = 460 : htForm = 320 : wdBtn = 100 : htBtn = 25 wdBtnSp = Int((wdForm - wdBtn) / 2) - 3 oNMD.CreateDialog sCaption, 80,100, wdForm,htForm oNMD.MinMaxBtns = False ' hide the min/max buttons oNMD.AddLabel sLBLabel, 20,10, 300,20 oNMD.AddLstBox 20,30, 400,170 oNMD.AddProgressBar 40, 205, 360,20 oNMD.ShowDialog True End Sub ' --- INSTANTIATE ACTX OBJECT (or class) AND CHECK ---- ' (using a sub to get this ugly instantiation code out of main line code)... Sub Instantiate (oObject, sProgramID, sEventPrefix) Const sME = "[sub Instantiate], " ' check variant sub-type parameters... BugAssert (VarType(sProgramID) = vbString), sME & "sProgramID must be a STRING!" BugAssert (VarType(sEventPrefix) = vbString), sME & "sEventPrefix must be a STRING!" On Error Resume Next ' turn on error checking Set oObject = WScript.CreateObject (sProgramID, sEventPrefix) BugAssert (err.number = 0), sME & "This script requires: " & sProgramID & vbCrlf _ & " kindly INSTALL and REGISTER this ActX component... " On Error goto 0 ' turn off error checking... End Sub ' --- BUGASSERT (yes, it's for debugging) -------- Sub BugAssert (bTest, sErrMsg) ' BugAssert is a Bruce McKinney creation. ' It is used to test for intermediate results... if bTest then Exit Sub MsgBox "Error Detected by BugAssert: " & vbCr & vbCr & sErrMsg, _ vbCritical, " << BugAssert FAILED >> " WScript.Quit End Sub
I have edited this file specifically for this document to remove specific information about my company's infrastructure. As such, you should debug this code since I have not tested it since editing it.
' LocationProfileTZ.vbs - Utility to determine the IP address and set timezone, desktop logo, removed IPX if in ROC, ' and set Import Server key for SBF. ' Last update 2/25/03 by JShank Option Explicit ' On Error Resume Next Dim IP_Address : IP_Address = GetIP() ' Let's get the first IP address on the system Dim filesys,wshShell,bfsrange,alsrange,arr_midip,midip, compip,desktop,parange,pacifictz,mountaintz,centraltz, easterntz,pacificoffset,mountainoffset,centraloffset, easternoffset,comprange,rocrange' Dim all of our variables Set filesys = CreateObject("Scripting.FileSystemObject") Set wshShell = CreateObject("WScript.Shell") 'We have to define our IP subnets for workstations in our locations. Since we only care about the 2nd and 3rd 'octet, thats all we specify and compare. ? I have removed the arrays that go here because they would represent a security risk to our company's network and replaced them with ? ficticious ranges. parange = Array ("2.10","2.11","2.12") pacifictz = Array () mountaintz = Array () centraltz = Array () easterntz = Array (parange) rocrange = Array (parange) pacificoffset = 480 ' -8 from GMT = 8 hours x 60 minutes = 480 mountainoffset = 420 ' -7 from GMT = 7 hours x 60 minutes = 420 centraloffset = 360 ' -6 from GMT = 6 hours x 60 minutes = 360 easternoffset = 300 ' -5 from GMT = 5 hours x 60 minutes = 300 arr_midip = Split(IP_Address, ".") ' Breaking up the IP address so we can look at the middle octets midip = arr_midip(1) & "." & arr_midip(2) ' Recompose the 2nd & 3rd octets 'Here is the logic for changing the timezone For Each comprange in pacifictz For Each compip in comprange if compip = midip then 'If they are in the Pacific timezone WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\ ActiveTimeBias",pacificoffset,"REG_DWORD" WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\Bias", pacificoffset,"REG_DWORD" WshShell.RegWrite "HKLM\SYSTEM\ CurrentControlSet\ Control\TimeZoneInformation\ StandardName","Pacific Standard Time" WshShell.RegWrite "HKLM\SYSTEM\ CurrentControlSet\ Control\TimeZoneInformation\ DaylightName"," Pacific Daylight Time" WshShell.LogEvent 4,"IP Detected: " & IP_Address & ". Set for Pacific TimeZone" end if Next Next For Each comprange in mountaintz For Each compip in comprange if compip = midip then 'If they are in the Mountain timezone WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\ ActiveTimeBias",mountainoffset,"REG_DWORD" WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\ Bias",mountainoffset,"REG_DWORD" WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\ StandardName", "Mountain Standard Time" WshShell.RegWrite "HKLM\SYSTEM\ CurrentControlSet\ Control\TimeZoneInformation\ DaylightName", "Mountain Daylight Time" WshShell.LogEvent 4,"IP Detected: " & IP_Address & ". Set for Mountain TimeZone" end if Next Next For Each comprange in centraltz For Each compip in comprange if compip = midip then 'If they are in the Central timezone WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\ ActiveTimeBias",centraloffset,"REG_DWORD" WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\ Bias",centraloffset,"REG_DWORD" WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\ StandardName","Central Standard Time" WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\ DaylightName","Central Daylight Time" WshShell.LogEvent 4,"IP Detected: " & IP_Address & ". Set for Central TimeZone" end if Next Next For Each comprange in easterntz For Each compip in comprange if compip = midip then 'If they are in the Eastern timezone WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ TimeZoneInformation\ActiveTimeBias",easternoffset,"REG_DWORD" WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\Bias", easternoffset,"REG_DWORD" WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\ StandardName","Eastern Standard Time" WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\ Control\TimeZoneInformation\ DaylightName","Eastern Daylight Time" WshShell.LogEvent 4,"IP Detected: " & IP_Address & ". Set for Eastern TimeZone" end if Next Next For Each compip in bfsrange if compip = midip then 'If they are in BFS set desktop = filesys.GetFile ("c:\sysinfo\Desktop.bmp") desktop.attributes = 0 ' Set this to read/write since it can be set to read only on the image filesys.CopyFile "C:\sysinfo\BFSDesktop.bmp",desktop,1 ' Copy the BFS image to desktop.bmp wshShell.Run("c:\sysinfo\bginfo.exe /ic:\sysinfo\alsdefault.bgi /timer:0") ' Run BGInfo to stamp the new desktop WshShell.LogEvent 4,"Set BFS Logo Desktop" end if Next For Each compip in alsrange if compip = midip then 'If they are in ALS set desktop = filesys.GetFile ("c:\sysinfo\Desktop.bmp") desktop.attributes = 0 filesys.CopyFile "C:\sysinfo\ALSDesktop.bmp",desktop,1 ' See above example, this sets it to ALS desktop. wshShell.Run("c:\sysinfo\bginfo.exe /ic:\sysinfo\alsdefault.bgi /timer:0") WshShell.LogEvent 4,"Set ALS Logo Desktop" end if Next ' I needed to add some logic to change the ZENwsimport server based on location. This section updates the ' registry key for ZENwsimport so workstations would import into the proper container. For Each compip in nerange if compip = midip then 'If they are in NE WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Novell\ Workstation Manager\ Import Server\","10.5.1.74" end if Next For Each comprange in rocrange For Each compip in comprange if compip = midip then 'If they are in a ROC, remove IPX wshshell.popup "Remote IP detected, removing IPX!",3, "ALS Scripting", 0 + 16 WshShell.Run "c:\winnt\ system32\NetWare\Nwmigw2k\ setupw2k.exe /u ms_nwipx", 7,TRUE WshShell.LogEvent 0, "ROC detected: Removed IPX" end if Next Next Function GetIP() Dim ws : Set ws = CreateObject("WScript.Shell") Dim fso : Set fso = CreateObject ("Scripting.FileSystemObject") Dim TmpFile : TmpFile = fso.GetSpecialFolder(2) & "/ip.txt" Dim ThisLine, IP IP = "0" If ws.Environment("SYSTEM")("OS") = "" Then ws.run "winipcfg /batch " & TmpFile, 0, True Else ws.run "%comspec% /c ipconfig > " & TmpFile, 0, True End If With fso.GetFile(TmpFile).OpenAsTextStream Do While NOT .AtEndOfStream ThisLine = .ReadLine if IP = "0" then ' A little logic to make it read the 1st IP address if the machine has multiple IP's If InStr(ThisLine, "Address") <> 0 Then IP = Mid(ThisLine, InStr(ThisLine, ":") + 2) end if Loop .Close End With 'WinXP (NT? 2K?) leaves a carriage return at the end of line If IP <> "" Then If Asc(Right(IP, 1)) = 13 Then IP = Left(IP, Len(IP) - 1) End If GetIP = IP fso.GetFile(TmpFile).Delete Set fso = Nothing Set ws = Nothing End Function
If you have any questions you may contact Jim at email@example.com
Novell Cool Solutions (corporate web communities) are produced by WebWise Solutions. www.webwiseone.com