Arkiv

Wscript.Arguments

Dim args, arg1 Set args = WScript.Arguments If args.Count 1 Then Wscript.Quit arg1 = args.Item(0) Select Case UCase(arg1) Case «VALUE1» Case Else Wscript.Echo «Error parsing parameter (» & arg1 & «)» End Select

Class object

Class TestClass Private Sub Class_Initialize ‘ Setup Initialize event. MsgBox(«TestClass started») End Sub Private Sub Class_Terminate ‘ Setup Terminate event. MsgBox(«TestClass terminated») End Sub End Class Set X = New TestClass ‘ Create an instance of TestClass. Set X =…

AD SystemInfo

‘ AD SystemInfo Dim objSysInfo Set objSysInfo = CreateObject(«ADSystemInfo») Dim strUserLdapPath strUserLdapPath = objSysInfo.UserName Dim objUser Set objUser = GetObject(«LDAP://» & strUserLdapPath) objUser.GetInfo

Wscript.Shell Environment

‘ Wscript Shell Dim WshShell Set WshShell = WScript.CreateObject(«WScript.Shell») ‘ Wscript Shell Environment variables Dim objEnv Set objEnv = wshShell.Environment(«Volatile»)

This site is protected by WP-CopyRightPro