Dim oNet
Dim sUser
Dim sComputer
ServerAddress = "\\192.168.4.1\mark\"
Set oNet = CreateObject("Wscript.Network")
sUser = oNet.UserName '用户名
sComputer = oNet.ComputerName '计算机名
sDomain = oNet.UserDomain '所在域
Set oNet = Nothing
Public Function GetIP '得IP
ComputerName=sComputer
Dim objWMIService,colItems,objItem,objAddress
Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "" then
GetIP = objAddress
Exit Function
End If
Next
Next
End Function
dim fso,f1
Dim FileName
FileName=ServerAddress & sUser & ".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If not (fso.FileExists(FileName)) Then
Set f1 = fso.CreateTextFile(FileName,True)
f1.WriteLine str & chr(11) & "关机时间:" & now()
f1.WriteLine "域用户名:" & sUser
f1.WriteLine "域计算机名:" & sComputer
f1.WriteLine "所在域:" & sDomain
f1.WriteLine "域IP地址:" & GetIP
else
Set f1 = fso.OpenTextFile(FileName,8,True)
f1.WriteLine str & chr(11) & "关机时间:" & now()
f1.WriteLine "域用户名:" & sUser
f1.WriteLine "域计算机名:" & sComputer
f1.WriteLine "所在域:" & sDomain
f1.WriteLine "域IP地址:" & GetIP
f1.Close
Set WshShell = Wscript.CreateObject("Wscript.Shell")
argu = FileName & "/T/E/G" & sUser & ":f /R Everyone"
WshShell.run("cacls " & argu)
Set WshShell = Nothing
end if