Novell ZENworks Endpoint Security Management 3.5 Manual Do Utilizador
ZENworks® ESM 3.5
Administrator’s Manual
196
strStartMenu = WshShell.SpecialFolders("AllUsersPrograms")
Dim strDesktop
strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
'*************** Main Loop
DisableWirelessAdapters()
CreateStartMenuFolder()
CreateStartMenuProgramFilesShortcut()
CreateDesktopAllUsersShortcut()
CreateVbsFileToWriteRegEntry()
'*************** Functions to do each action
Function DisableWirelessAdapters()
Dim ret
'NOTE: 1 means this action can be undone on a location change if the policy allows
'0 means this action can be undone on a policy update if the policy allows
ret = Action.WiFiDisabledState(eDisableAccess, 1)
Action.Trace("Disallow Wi-Fi = " & ret)
'Again, per the customer request, Modems will be disabled to deal with 3G wireless cards that act
as modems in the network stack
as modems in the network stack
ret = Action.DialupDisabledState ( eDisableAccess , 1 )
Action.Trace("Disallow Modem = " & ret)
End Function
Function CreateStartMenuProgramFilesShortcut()
'create the Start Menu folder and then create the shortcut
set oShellLinkStartMenu = WshShell.CreateShortcut (strStartMenu & "\Novell\Enable Wireless
Adapter Control.lnk")
Adapter Control.lnk")
oShellLinkStartMenu.TargetPath = "C:\Program Files\Novell\ZENworks Security
Client\wareg.vbs"
Client\wareg.vbs"
oShellLinkStartMenu.WindowStyle = 1