Jump to content
Sign in to follow this  
vcent

Help me convert this vbscript to Autoit

Recommended Posts

vcent

I have the below script in vbscript. I have some problems replicating InstanceOf to autoIT. In addition how do you do objWMIDateTime.Value in autoit.

strComputer = "." 
set objWMIDateTime = CreateObject("WbemScripting.SWbemDateTime")
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
for each objOS in colOS
   objWMIDateTime.Value = objOS.LastBootUpTime
   Wscript.Echo "System Up Time: " & Cdate(objWMIDateTime.GetVarDate)
next

Thanks.

Share this post


Link to post
Share on other sites
PsaltyDS

I ain't hard:

$strComputer = "."
$objWMIDateTime = ObjCreate("WbemScripting.SWbemDateTime")
$objWMI = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colOS = $objWMI.InstancesOf("Win32_OperatingSystem")
for $objOS in $colOS
   $objWMIDateTime.Value = $objOS.LastBootUpTime
   ConsoleWrite("System Up Time: " & _GetWMIDateTime($objWMIDateTime.GetVarDate) & @LF)
next

Func _GetWMIDateTime($sIn)
    Return StringLeft($sIn, 4) & "/" & StringMid($sIn, 5, 2) & "/" & StringMid($sIn, 7, 2) & " " & _
            StringMid($sIn, 9, 2) & ":" & StringMid($sIn, 11, 2) & ":" & StringMid($sIn, 13, 2)
EndFunc

:)


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.