sol3-1.vbs

来自「Apress - Managing Enterprise Systems Wit」· VBS 代码 · 共 12 行

Dim objNetwork, strUser
Set objNetwork = CreateObject("WScript.Network")
strUser =""

'get logged on user name 
' user ID is returned correctly on Win 9x/ME computers
  Do While strUser =""
 strUser = objNetwork.UserName

Loop

'map user to home drive