China DOS Union

Originally posted by wudixin96 at 2007-9-2 17:30:
Set objComputer = CreateObject("Shell.LocalMachine")

Wscript.Echo "Computer name: " & objComputer.MachineName

Will prompt "Computer name: XXX" (need to click OK again)

I can't achieve the result required by this batch command (NET USE D: \\SERVER\%COMPUTERNAME% %COMPUTERNAME% /USER:%COMPUTERNAME%). Can you help me write a VBS?

Got the following code from the Windows Chinese site (with my own wrapping), but it doesn't run properly.

On error resume next

Set objNet = CreateObject("Wscript.Network")
strCompName = objnet.ComputerName

Set objNetwork = CreateObject("Wscript.Network")
strNewName = "data"


' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "d:","\\server\A"strCompName"$","A"strCompName"","A"strCompName""

' Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

"d:","\\server\A"strCompName"$","A"strCompName"","A"strCompName""

Take a look...

The string is quite messy!

Boss, help me take a look at the thirteenth line of the following code

On error resume next

Set objNet = CreateObject("Wscript.Network")
strCompName = objnet.ComputerName
strNewName = "data"
strDriveLetter = "d"

' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$","A" & strCompName, "A" & strCompName,
' Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

The thirteenth line is: objShell.NameSpace(strDriveLetter).Self.Name = strNewName

objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$","A" & strCompName, "A" & strCompName,

The third parameter doesn't seem right? Why is there a comma at the end?
Line 13... It seems to be the last line.
If you use the "D" string to see if it still errors? If not, it should be correct.

' #test.vbs
Set objNet = CreateObject("Wscript.Network")
strCompName = objnet.ComputerName
strNewName = "data"
strDriveLetter = "d"

' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$","A" & strCompName, "A" & strCompName
' Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
' #完

object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword])

Please note this line. If you want to use the username and password without UpdateProfile, you also need to leave the position empty.

strLocalName, strRemoteName,, strUser, strPassword

There are two commas in the middle

Just set strLocalName and strRemoteName.

It's okay, thank you 22F, but the name of this disk can't be changed

Thanks to slore, people are getting old, and eyes are not working well

[ Last edited by wudixin96 on 2007-9-3 at 11:55 AM ]

Originally posted by wudixin96 at 2007-9-3 11:40:
strDriveLetter

Where does this variable come from??

He defined it earlier... It seems to be d

Problem Solving

strDriveLetter = "d:"

#OK.VBS
On error resume next

Set objNet = CreateObject("Wscript.Network")
strCompName = objnet.ComputerName
strNewName = "data"
strDriveLetter = "d:"

' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$",,"A" & strCompName, "A" & strCompName

' Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName