How To Collect System Info With Login Script

Date March 18, 2011 Author By kadmin Category General, Support Articles, Windows Server 2003, Windows Server 2008

Save this as a .vbs file: —————————————————————————– Dim strComputer Dim objFS Dim objFile Set objFS = CreateObject(“Scripting.FileSystemObject”) Set objFile = objFS.OpenTextFile(“P:AdminComputerLogLOGINLOG.txt”, 8, True) Dim WshNetwork Set WshNetwork = WScript.CreateObject(“WScript.Network”) objFile.WriteLine “Domain = ” & WshNetwork.UserDomain objFile.WriteLine “Computer Name = ” & WshNetwork.ComputerName objFile.WriteLine “User Name = ” & WshNetwork.UserName On Error Resume Next Const HKLM […]