Borwinius Wissensdatenbank windows:scripte:vbs

windows:scripte:vbs:checkifgroupexist

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

Check if the Group exist prüfe ob die Gruppe in der Domäne schon existiert.: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Test if GroupName already exists DIM domain,group domain = "MYNTDOM" group = "MYNTGROUP" TestGroup domain,group '------------------------------------------------------------------------------' Sub TestGroup(domain,group) On Error Resume Next Set GroupExist = GetObject("WinNT://" & domain & "/" & group & ",group") If Err.Number <> 0 …

windows:scripte:vbs:createfolderinsubfolder

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

CreateFolderinSubfolder erstelle in den Unterverzeichnissen eines Verzeichnisses jeweils die 2 Verzeichnisse „Eingang“ und „Ausgang“. 'createFolderinSubfolder.vbs 'Script zum Anlegen von jeweils 2 Ordnern "Eingang" und "Ausgang" in den Unterverzeichnissen / borwinius 2012' On error Resume Next DIM searchOrdner 'searchOrdner = "P:\Kunden" searchOrdner = "." Set FSO = CreateObject("Scripting.FileSystemObject") ShowSubFolders FSO.GetFolder(searchOrdner) '------------------------------' Sub …

windows:scripte:vbs:createprinterports

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

Create Printerports erstelle automatisch Druckerports von 10.10.111.10 bis 10.10.111.253 auf einem Druckserver: ' primitives Script zum Erstellen von Druckerports / richard borwinius 2012 DIM i,strIP,strName,strComputer strComputer = "." ' in der folgenden Zeile ist die Basis einzutragen strBASIS = "10.10.111." On Error Resume Next FOR i = 10 TO 254 strIP = strBASIS & i strName = "IP_" & strIP Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComp…

windows:scripte:vbs:deleteallfilesinfolder

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

Delete All Files in a Folder Lösche alle Dateien (keine Ordner) im angegebenen Pfad rekursiv. Dim System Dim Drive ReDim Location(0) DIM i i = 0 Pfad = "F:\TransferDir\" Set System = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Shell.Application") On error Resume next Call FindFile(Pfad) Call FindFileRekursiv(Pfad,i) '---------------------------------------------------------------------------' Sub FindFile(Pfad) DIM objFolder,Datei Set objFolder = system.GetFo…

windows:scripte:vbs:deletecomputerobject

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

Delete an Computerobject in a Domain Lösche einen alten Computer aus der Domäne: 'lösche den gesuchten Computer aus der Domäne compnr = "Nbnr1234" FindandDeleteanComputerinDomain compnr '------------------------------------------------------------------------- Sub FindandDeleteanComputerinDomain(computer) Set objRootDSE = GetObject("LDAP://RootDSE") ADDomain = objRootDSE.Get("defaultNamingContext") Set objrootdse = nothing Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject…

windows:scripte:vbs:getnamefromsid

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

Get Name from SID Ermittle aus einer SID den dazugehörigen Namen. Die SID wird per InputBox abgefragt: ' Name eines Benutzers aus SID ermitteln strSearch = InputBox("Zu welcher SID wird der Name gesucht?") Set objWMI = GetObject("winmgmts:") strWQL = "select * from win32_account where SID='" & strSearch & "'" Set objResult = objWMI.ExecQuery(strWQL) For Each objAcc In objResult strResult = objAcc.Name Next InputBox "Der Name von " & strSearch & " lautet: ", , strResult

windows:scripte:vbs:getsidfromname

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

Get SID from Name Ermittle aus einem Namen die dazugehörige SID. Die SID wird per InputBox abgefragt: ' SID eines Benutzers ermitteln /js strSearch = InputBox("Zu welchem Namen wird die SID gesucht?") Set objWMI = GetObject("winmgmts:") strWQL = "select SID from win32_account where Name='" & strSearch & "'" Set objResult = objWMI.ExecQuery(strWQL) For Each objAcc In objResult strResult = objAcc.SID Next InputBox "Die SID von " & strSearch & " lautet: ", , strResult

windows:scripte:vbs:listallgroupsofadomain

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

List all groups of a domain ' How do I view all the group in the domain using ADSI? DomainString = "MYNTDOMAIN" dim i i = 1 Set DomainObj = GetObject("WinNT://" & DomainString) DomainObj.Filter = Array("group") For Each GroupObj In DomainObj If GroupObj.Class = "Group" Then List = GroupObj.Name wscript.echo i & vbTab & List i = i + 1 End If Next

windows:scripte:vbs:listdisableduser

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

List disabled User ' alle Benutzer der Firma mit Passwortablauf Dim oUser i = 0 dom = "MYNTDOM" ' NT-Domänenname dcsrv = "mydomctrl" ' domänencontroller 'Create Container-Object for reading User Set oUser = GetObject("WinNT://" & dom & "/" & dcsrv) ' Set filter to get User only oUser.Filter = Array("User") For Each oChildUser In oUser GetDisabledUser dom , oChildUser.Name Next ' ------------------------------------------------------------------------- ' abgelauf…

windows:scripte:vbs:listfsmo_roles

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

List FSMO roles ' FSMO Rollen ermitteln ' ' fsmo_anzeigen.vbs ' http://faq.netzprisma.de/?id=205003 ' (v2005090201) ' ' use at own risk ;-) ' Eine FSMO Rolle ermitteln ' Rückgabe: Name des Domain Controllers Function my_fsmo(str_fsmo_role) Set objRootDSE = GetObject("LDAP://rootDSE") Select Case str_fsmo_role Case "domainnamingmaster": Set obj_target = GetObject("LDAP://CN=Partitions," & objRootDSE.Get("configurationNamingContext")) Case "schemamaster": Set obj_target = GetObject…

windows:scripte:vbs:listgroupsofauser

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:12+00:00

List Groups of a User Liste alle Gruppen auf in der ein Benutzer Mitglied ist und kopiere den Inhalt in die Zwischenablage: DomainString="MyNTDOM" UserString = "MyDomUser" UserString = InputBox("Zu welchem Namen werden die Gruppen gesucht?","Bitte geben Sie Ihren Namen an",UserString) Set UserObj = GetObject("WinNT://" & DomainString & "/" & UserString) For Each GroupObj In UserObj.Groups List = List & vbLf & GroupObj.Name Next wscript.Echo List 'in Zwischenablage …

windows:scripte:vbs:listmodifiedfiles

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

List modified Files Zeige mir alle Dateien eines Verzeichnisses an, die innerhalb von n Tagen geändert wurden: 'Detect files changed since "n" days DIM Folder,sinceDays ' zu durchsuchender Ordner FilesinFolder = "X:\Meine\wichtigen\Daten" # Dateien die seit x Tagen nicht geändert wurden SinceDays = 7 '---------------------------------------------------- Function FilesModifiedSince (FolderSpec, Days) Dim fso, fc, f, d Set fso = CreateObject("Scripting.FileSystemObject") Set fc = fso.G…

windows:scripte:vbs:listusersofagroup

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

List Users of a Group Liste alle Mitglieder einer Gruppe auf: 'Liste alle Benutzer einer Gruppe auf' DIM List strDomainName = "MYNTDOM" strGroupName = "MYNTGRP" strGroupName = InputBox("Zu welcher Gruppe sollen die Mitglieder gesucht werden ?","Gruppenname",strGroupName) Set objDomain = GetObject("WinNT://" & strDomainName) ListUsersofaGroup strDomainName,strGroupName 'Ergebnis in Zwischenablage kopieren' Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:…

windows:scripte:vbs:movefolder

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

moveFolder Script zum verschieben/umbenennen eines kompletten Verzeichnisses. Die Zugriffsrechte werden ebenfalls mit verschoben, wenn dies auf der selben Partition passiert. ret = 0 'Erfolg = 0, Fehler <>0 SourceFolder = "D:\projektetest\source" TargetFolder = "D:\projektetest\target" ret = MoveDir(SourceFolder,TargetFolder) If ret <> 0 THEN wscript.echo "Fehler: " & ret End If '--------------------------------------------------------------- Function MoveDir(Source,Target) Set objFSO…

windows:scripte:vbs:scaniprange

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

Scan an IP-Range Scanne einen IP-Bereich in einem C-Netz und ermittle ob in diesem Rechner auf „ping“ antworten: ( nur deutsches OS ) ' primitives Script zum Netzwerkscannen der Netzgeschwindigkeit/ richard@borwinius DIM i,strIP ' in der folgenden Zeile ist die zu scannende Basis einzutragen strBASIS = "192.168.10." On Error Resume Next FOR i = 1 TO 254 strIP = strBASIS & i Set objShell = CreateObject("WScript.Shell") Set objExec = objShell.Exec("ping -n 1 -w 20 " & strIP) strPin…

windows:scripte:vbs:sendmeamailifauserislocked

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

Send me a mail if a user is locked Sende mir eine Mail wenn ein Benutzer wegen zu vieler falscher Anmeldungen gesperrt wurde: Dazu wird auf jedem (!) DC in den geplanten Tasks ein Event Viewer Tasks minimal erstellt der nach dem Event 4740 im Protokoll

windows:scripte:vbs:sendmeamailifyouhaveupdates

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

Mail me if you have Updates Oft will man informiert werden, wenn der Windowsserver neue Update zur Installation erhalten hat. Bei einer Vielzahl von Servern ist es schwer den Überblick zu behalten. deshalb hilft das folgende Script als geplanter Task, die Rechner aktuell zu halten.

windows:scripte:vbs:showfiles

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

ShowFiles Zeige alle Dateien (nicht rekursiv) in einem Verzeichnis an. Dim Datei meinOrdner = "D:\projektetest" ListeDateien meinOrdner '----------------------------------------------------- Sub ListeDateien(Ordner) set Anzahl = CreateObject("Scripting.FileSystemObject").GetFolder(Ordner).Files wscript.echo Anzahl.Count & " Dateien" For Each Datei in Anzahl wscript.echo Datei.name Next End Sub '-----------------------------------------------------

windows:scripte:vbs:showfilesrekursiv

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

show Files recursive Zeige mir alle Dateien in einem Ordner und seinem Unterordnern an: '[showfilesrekursiv.vbs] rekursiv Dateien mit letzter Änderung anzeigen ' Ergebnis wird gleichzeitig in ein Excel geschrieben Dim System Dim FileName PATH = "\\servername\frei\gabe\verzeichnis\" 'PATH = "c:\verzeichnis\" Set System = CreateObject("Scripting.FileSystemObject") Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add Call FindFile(PATH) '-------…

windows:scripte:vbs:showfolders

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

ShowFolders Script zum Anzeigen von Unterverzeichnissen. Es werden keine Unterunterverzeichnisse mit angezeigt searchOrdner = "D:\projektetest" iOrdner = 0 i = 0 Set FSO = CreateObject("Scripting.FileSystemObject") iOrdner = ShowSubfolders (FSO.GetFolder(searchOrdner)) wscript.echo iOrdner & "Unterordner vorhanden" Function ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders i = i + 1 Wscript.Echo iOrdner & vbTab & Subfolder.Path Next ShowSubFolders …

windows:scripte:vbs:showsubfolders

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

ShowSubFolders Script zum rekursiven Anzeigen von Unterverzeichnissen. searchOrdner = "D:\projektetest" iOrdner = 0 Set FSO = CreateObject("Scripting.FileSystemObject") ShowSubfolders FSO.GetFolder(searchOrdner) Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders iOrdner = iOrdner + 1 Wscript.Echo iOrdner & vbTab & Subfolder.Path ShowSubFolders Subfolder Next End Sub

windows:scripte:vbs:start

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

VBS-Scripte moveFolder... ShowFolders... ShowSubFolders createFolderinSubfolder... DeleteAllFilesinFolder... createPrinterports... ShowFiles... ShowFilesrekursiv... ListmodifiedFiles... getNamefromSID... getSIDfromName... ListallGroupsofaDomain... ListUsersofaGroup... ListGroupsofaUser... CheckIfGroupExist... ListFSMO_Roles... ListdisabledUser... UninstallanUpdateorProgramm... SendMeaMailIfYouHaveUpdates... DeleteComputerObject... ScanIPRange... SendMeaMailIfaUserIslocked..…

windows:scripte:vbs:uninstallanupdateorprogramm

Anonymous (anonymous@undisclosed.example.com) — 2023-12-10T18:25:13+00:00

Uninstall a Program or Patch Die automatische Deinstallation per Script ist etwas unschön über die WUAPI gelöst. Mein Script ermittelt in der Registry das gesuchte KB-Patch oder Programm und startet dann die Deinstallation: Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." suche = "KB2509470" 'hier das gesuchte Programm eingeben strOriginalKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") FindKeyValue(…