On Error Resume Next

Set oShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

sHost = oShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
sDefaultUserName = oShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")
sDefaultPassword = oShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword")
sAutoAdminLogon = oShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon")

  sFile = "\\serverx\scriptdump$\" & sHost & ".log"
sLine = sHost & "," & sDefaultUserName & "," & sDefaultPassword & "," & sAutoAdminLogon

Set oFile = oFSO.CreateTextFile(sFile,True)
oFile.Write sLine & vbCrLf
oFile.Close