ZENworks® ESM 3.5 Administrator’s Manual 197
oShellLinkStartMenu.Hotkey = "CTRL+SHIFT+W"
oShellLinkStartMenu.IconLocation = "C:\Program Files\Novell\ZENworks Security
Client\STEngine.exe, 0"
oShellLinkStartMenu.Description = "Launch Novell Wireless Adapter Control Dialog Box"
oShellLinkStartMenu.WorkingDirectory = "C:\Program Files\Novell\ZENworks Security Client"
oShellLinkStartMenu.Save
End Function
Function CreateDesktopAllUsersShortcut()
'create the desktop folder shortcut
set oShellLinkDesktop = WshShell.CreateShortcut (strDesktop & "\Enable Wireless Adapter
Control.lnk")
oShellLinkDesktop.TargetPath = "C:\Program Files\Novell\ZENworks Security
Client\wareg.vbs"
oShellLinkDesktop.WindowStyle = 1
oShellLinkDesktop.Hotkey = "CTRL+SHIFT+W"
oShellLinkDesktop.IconLocation = "C:\Program Files\Novell\ZENworks Security
Client\STEngine.exe, 0"
oShellLinkDesktop.Description = "Launch Novell Wireless Adapter Control Dialog Box"
oShellLinkDesktop.WorkingDirectory = "C:\Program Files\Novell\ZENworks Security Client"
oShellLinkDesktop.Save
End Function
Function CreateVbsFileToWriteRegEntry()
'First build the VBScript file to write the registry key
Dim pathToTempVbsFile
pathToTempVbsFile = "C:\Program Files\Novell\ZENworks Security Client\wareg.vbs"
Dim ofileSysObj, fileHandle
set ofileSysObj = CreateObject ( "Scripting.FileSystemObject" )
set fileHandle = ofileSysObj.CreateTextFile ( pathToTempVbsFile , true )
fileHandle.WriteLine "Dim WshShell"
fileHandle.WriteLine "Set WshShell = CreateObject(""WScript.Shell"")"
