david/Repository
1
0
Fork 0
Code Releases Activity

Auto-commit: 2025-10-31 08:58:35

Browse Source
This commit is contained in:
David Wuibaille
2025-10-31 08:58:36 +01:00
parent 7d94414992
commit 7cc3011354
1088 changed files with 193455 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
USMT-Gui-Replace-Scenario/Tools/CreationCompte_Proservia1.vbs Normal file
View File

@@ -0,0 +1,15 @@
dim strUser, strPass
strUser = "Proservia1"
strPass = "Psv@2016"
Set Shell = WScript.CreateObject("WScript.Shell")
CodeRetour = Shell.run("cmd /c net user " & strUser & " " & strPass & " /add",0,True)
CodeRetour = Shell.run("cmd /c net localgroup " & chr(34) & "Administrateurs" & chr(34) & " " & strUser & " /add",0,True)
Set objUser = Getobject("WinNT://" & "." & "/" & strUser)
'Password never expires flag
Flags = objUser.Get("UserFlags")
objUser.put "Userflags", flags OR &H10000
objUser.setinfo