ayuda con Script...

Hola amigos !! :-D

Saqué el siguiente script del centro de script de microsoft, y luego le
realicé algunas modificaciones para que funcionara de acuerdo a mi red. El
problema es que cuando lo ejecuto me arroja el siguiente error

Se requiere un objeto: "ADSysInfo"

Podrían ayudarme a resolver el problema...

'
Const GRUPO_PROYECTOS = "cn=G-PROYECTOS"
Const GRUPO_CONTABILIDAD = "cn=G-CONTABILIDAD"
Const GRUPO_GERENCIA = "cn=G-GERENCIA"

Set wshRed = CreateObject("WScript.Network")
'wshRed.MapNetworkDrive "h:", "\\INV-SRV-01\Usuarios\" & wshRed.UserName

Set infoSisAD = CreateObject("ADSystemInfo")
Set usuarioActual = GetObject("LDAP://" & ADSysInfo.UserName)
strGrupos = LCase(Join(UsuarioActual.MemberOf))

If InStr(strGrupos, GRUPO_PROYECTOS) Then
wshRed.MapNetworkDrive "g:", "\\INV-SRV-01\Proyectos\"

ElseIf InStr(strGrupos, GRUPO_CONTABILIDAD) Then
' wshRed.MapNetworkDrive "g:", "\\INV-SRV-01\Contabilidad\"

ElseIf InStr(strGrupos, GRUPO_GERENCIA) Then
' wshRed.MapNetworkDrive "g:", "\\INV-SRV-01\Gerencia\"

End If