VBScript

[chuck walsh]

I am trying to run a VB Script to map a network printer.
But when I try to execute it, I get an error message
saying "The remote server machine does not exist or is
unavailable." It points to the strUserDN line below. I'm
not sure why I am getting this message. Any help would be
appreciated.

Option Explicit

Dim objNetwork, objSysInfo, strUserDN
Dim objGroupList, objUser, objFSO
Dim strComputerDN, objComputer

Set objNetwork = CreateObject("Wscript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.userName
strComputerDN = objSysInfo.computerName
'wscript.Echo
' Bind to the user and computer objects with the LDAP
provider.
Set objUser = GetObject("LDAP://" & strUserDN)
Set objComputer = GetObject("LDAP://" & strComputerDN)

' Add a network printer if the user is a member of the
group.
' Make this printer the default.
If IsMember(objUser, "ptest") Then
objNetwork.AddWindowsPrinterConnection "\\server1\PPROG"
objNetwork.SetDefaultPrinter "\\server1\PPROG"
End If

 

[Bill James]

You will probably have better luck with this question in the VBScript group: microsoft.public.scripting.vbscript.

--

Bill James
Microsoft MVP - Shell/User

Win9x VBScript Utilities » www.billsway.com/vbspage/
Windows Tweaks & Tips » www.billsway.com/notes_public/