組策略之關機查詢（startdown）

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