仅供参考:
ServerShare = "\\192.168.3.56\d$"
UserName = "somedomain\someuser"
Password = "somepassword"Set NetworkObject = CreateObject("WScript.Network")NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, PasswordSet FSO = CreateObject("Scripting.FileSystemObject")
    Set Directory = FSO.GetFolder(ServerShare)
        For Each FileName In Directory.Files
            WScript.Echo FileName.Name
        Next
        Set FileName = Nothing
    Set Directory = Nothing
Set FSO = NothingNetworkObject.RemoveNetworkDrive ServerShare, True, FalseSet NetworkObject = Nothing