Scriptin’ 5

 

Jaký je nainstalovaný Service Pack

 

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    Wscript.Echo objOperatingSystem.ServicePackMajorVersion  _
        & "." & objOperatingSystem.ServicePackMinorVersion
Next

 

___________________________________________________________________

Přidej doménového uživatele do lokálních administrátorů

 

strComputer = "atl-ws-01"
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer")
objGroup.Add(objUser.ADsPath)

_____________________________________________________________________

Ověř, zda-li je user lokalní administrátor

 

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
strUser = objNetwork.UserName

Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser in objGroup.Members
    If objUser.Name = strUser Then
        Wscript.Echo strUser & " is a local administrator."
    End If
Next

_________________________________________________________________________

Alert .pst Size

 

 sComputer = "."

 Set oWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
 Set colItems = oWMIService.ExecQuery("Select * From Win32_ComputerSystem")

 For Each oItem in colItems
  aUsrProfName = Split(oItem.UserName,"\")
  sUsrProfName = aUsrProfName(1)
 Next

 Set FSO=CreateObject("Scripting.FileSystemObject")

 If FSO.driveexists("c:") = true then

  sMyDocsFolder = "c:\Documents and Settings\" & sUsrProfName & "\Local Settings\Data aplikací\Microsoft\Outlook"
  
  If FSO.folderexists(sMyDocsFolder) Then
   Set oMyDocsFolder = FSO.GetFolder(sMyDocsFolder)
 
   For Each oFile in oMyDocsFolder.Files
    If LCase(Right(oFile.Name, 4)) = ".pst" Then
     sFileName = oFile.Name
     bFileFound = true
     Exit For
    End If
   Next

   If bFileFound Then
    alarmSize = 2

    Set File = FSO.GetFile(sMyDocsFolder & "\" & oFile.Name)

    sSize = File.Size\1024

    If sSize > alarmSize Then

     Set objshell = CreateObject("Wscript.Shell")

     iMessage = Msgbox("Varování: Váš mailbox " & _
                       "se přiblížil maximální hranici " & alarmSize & " Mb. " & _
                        vbNewLine & vbNewLine & "Je potřeba promazat nepotřebné e-maily. " & _
                        "Případně se obraťte na IT oddělení.")

     End If
    End If
   End If
  End If