sol3-1.vbs

Apress - Managing Enterprise Systems With The Windows Script Host Source Code

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