Rendszer-visszaállítás elvégzése
Ez a script csak Windows XP alatt működőképes.
A script rendszer visszaállítást végez a paraméterként megadott visszaállítási pontról. A mellékelt script-ben egy konstans segítségével megadott a visszaállítási pont.
Set objWMIService = GetObject("winmgmts:\\.\root\default")
Set objItem = objWMIService.Get("SystemRestore")
objItem.Restore(20)
A melléklet bővebb, ott a visszaállítási parancs visszaadott értékét is megjelenítjük. Először tehát vesszük a SystemRestore objektumot, majd meghívjuk a Restore metódusát a visszaállítási ponttal, mint paraméterrel.
Új tag hozzáadása egy csoporthoz
A mellékelt script egyaránt használható Windows 2000, XP és 2003 alatt. A script hozzáad két csoportot és egy felhasználót a Teszt nevű csoporthoz.
Set objGroup = GetObject _
("LDAP://cn=Teszt,cn=Users,dc=pecs,dc=ceg,dc=hu")
objGroup.PutEx 3, "member", _
Array("cn=Jani,ou=Szerv,dc=pecs,dc=ceg,dc=hu", _
"cn=Csop1,ou=Management,dc=pecs,dc=ceg,dc=hu", _
"cn=Csop2,ou=Management,dc=pecs,dc=ceg,dc=hu")
objGroup.SetInfo
Először LDAP címzéssel vesszük a Teszt nevű csoportot, amelyhez hozzá szeretnénk az új tagokat adni, majd a csoportnak meghívjuk a PutEx metódusát 3-mas (tulajdonság hozzáadás), "member", azaz tag, valamint az új tagok tömbjével. Végül kiadjuk a SetInfo parancsot, amellyel érvényesíthető a művelet.
Terminálszolgáltatási fiók felvétele
A mellékelt script Windows XP és 2003 alatt használható. A script hozzáad egy terminálszolgáltatási fiókot az adott felhasználóhoz, és guest joggal látja el.
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_TSPermissionsSetting")
For Each objItem in colItems
errResult = objItem.AddAccount("aurora\janos", 0)
Next
A script lekérdezi a Win32_TSPermissionsSetting osztályt, és felveszi guest jogokkal a megadott felhasználót.
Tartományi információk lekérdezése
A script Windows XP és 2003 szerver alatt működőképes.
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")
For Each objItem in colItems
Wscript.Echo "Kliens telephely neve: " & objItem.ClientSiteName
Wscript.Echo "DC telephely neve: " & objItem.DcSiteName
A script veszi a Win32_NTDomain osztályt, és valamennyi eleméről, vagyis valamennyi tartományról megjeleníti az elérhető információkat, amelyekből most csak kettőt mutatunk, de a mellékelt script teljes.
Itt található a lekérdező ciklus lezárása.