G
Guest
See below for the code I am running-
The script run and displays a dialog window which reads "completed
successfully" but then I get another with the error code 80070034, "You were
not connected because a duplicate name exists on the network. Go to Control
panel to change the computer name." I'm not sure which computer it is
referencing.
The error references line 72 (noted below).
I know there is one machine per name on the network. Any idea what causes
this dialog box?
Thanks for the help,
Paul
********************
'This script:
'Reads computer names from a text file
'Copies the installation and configuration scripts,
'from a network location to the local machine
'Connects to the computers in turn
'Launches install.cmd to start the installation process
'Before running the script change the scripts folder path, the computer.txt
path and
'the install.cmd path to be correct for the environment
'Edit the value of CompTxtFile to configure the path to Computers.txt if
required
CompTxtFile = "\\remote servername\Disk1\_scan.ePO\scripts\computers.txt"
'The executable, *.*, needs to be present in the scripts folder
'Edit the value of SrcSrv to include the path to the scripts folder on the
source server
SrcSrv = "\\remote servername\Disk1\_scan.ePO\scripts"
'Edit the value of DestPath to include the destination path on the client if
required
DestPath = "\c$\temp"
'Edit the value of ScriptPath to include the path to Install.cmd if required
ScriptPath = "\c$\temp\install.cmd"
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set File = FileSys.GetFile(CompTxtFile)
Set Words = File.OpenAsTextStream
Do Until Words.AtEndOfStream
StrComputer = Words.ReadLine
'The executable, *.*, needs to be present in the scripts folder.
'Edit this line to include the path to the scripts folder on the source
server and the
'destination path on the client if required. Note: lines below here do not
need to be altered.
**LINE 72 FileSys.CopyFolder SrcSrv, "\\" & strComputer & DestPath, true
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2:Win32_Process")
errReturn = objWMIService.Create("\\" & strComputer & ScriptPath, null,
null, intProcessID)
If errReturn = 0 Then
Wscript.Echo "Script ran successfully"
Else
Wscript.Echo "The script failed due to error " & errReturn & "."
End If
Loop
The script run and displays a dialog window which reads "completed
successfully" but then I get another with the error code 80070034, "You were
not connected because a duplicate name exists on the network. Go to Control
panel to change the computer name." I'm not sure which computer it is
referencing.
The error references line 72 (noted below).
I know there is one machine per name on the network. Any idea what causes
this dialog box?
Thanks for the help,
Paul
********************
'This script:
'Reads computer names from a text file
'Copies the installation and configuration scripts,
'from a network location to the local machine
'Connects to the computers in turn
'Launches install.cmd to start the installation process
'Before running the script change the scripts folder path, the computer.txt
path and
'the install.cmd path to be correct for the environment
'Edit the value of CompTxtFile to configure the path to Computers.txt if
required
CompTxtFile = "\\remote servername\Disk1\_scan.ePO\scripts\computers.txt"
'The executable, *.*, needs to be present in the scripts folder
'Edit the value of SrcSrv to include the path to the scripts folder on the
source server
SrcSrv = "\\remote servername\Disk1\_scan.ePO\scripts"
'Edit the value of DestPath to include the destination path on the client if
required
DestPath = "\c$\temp"
'Edit the value of ScriptPath to include the path to Install.cmd if required
ScriptPath = "\c$\temp\install.cmd"
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set File = FileSys.GetFile(CompTxtFile)
Set Words = File.OpenAsTextStream
Do Until Words.AtEndOfStream
StrComputer = Words.ReadLine
'The executable, *.*, needs to be present in the scripts folder.
'Edit this line to include the path to the scripts folder on the source
server and the
'destination path on the client if required. Note: lines below here do not
need to be altered.
**LINE 72 FileSys.CopyFolder SrcSrv, "\\" & strComputer & DestPath, true
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2:Win32_Process")
errReturn = objWMIService.Create("\\" & strComputer & ScriptPath, null,
null, intProcessID)
If errReturn = 0 Then
Wscript.Echo "Script ran successfully"
Else
Wscript.Echo "The script failed due to error " & errReturn & "."
End If
Loop