/image%2F0881799%2F20150718%2Fob_bae49d_980x285-ct.jpg)
'usage: soap_request.vbs /usr:
wscript.echo "user active = " & getidusract() function getidusract() dim objExecObject,strLine,i For i=1 to 100000 Set objExecObject = WshShell.Exec("%comspec% /c qwinsta.exe " & i) Do Until objExecObject.StdOut.AtEndOfStream strLine = objExecObject.StdOut.ReadLine()...
Public Const XML_FILE = "xmlconfigfile.xml" Public Const NODE_BIT = "/Config/Bitlocker" '-------------------------------------------------------------------- ' Function Name - ReadXML() '--------------------------------------------------------------------...
public certificatesubject="AUTHENTIFICATION" public xmlnsvalue="http://webservice.groupdirectorycertificate.com" '========================================================================== ' Name: GetWebService ' Param: samaccountname: username User '==========================================================================...
Function GetTsVariable (ByVal strTsVariableName, ByRef strTsVariableValue) Dim objTSEnvironment On Error Resume Next Set objTSEnvironment = CreateObject("Microsoft.SMS.TSEnvironment") GetTsVariable = Err.number On Error GoTo 0 If GetTsVariable=0 Then...
strComputer = "." ============================================================= Get the SMBIOS asset tag from the Win32_SystemEnclosure class ============================================================= Dim objWMI : Set objWMI = GetObject("winmgmts:")...
/image%2F0881799%2F20140610%2Fob_a8c7fe_logo2.jpg){kind=logo}
Ceci est ma KB perso. Elle n'a pas but de formation. Je l'alimente au fil de mes pérégrinations. Si elle vous aide tant mieux, sinon rien ne vous empêche de m'interroger ;). / This is My Personal Knowledge Base. it is not trained. I nourish it in the course of my peregrinations. If it helps you so much better, if nothing prevents you from questioning me;). But I can not train U, i do not have the time to. Enjoy!
Abonnez-vous pour être averti des nouveaux articles publiés.
