Novell ZENworks Endpoint Security Management 3.5 Manual Do Utilizador

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"")"