Notifications
Announcements
@@copilotGeneratedAction: 'True' Scripting.RunVBScript.RunVBScript VBScriptCode: $'''\' This code has been generated by AI. Original prompt: \' Vbscript to convert system cureent data and time to CST Dim objShell, objWMIService, colTimeZones, objTimeZone, localDateTime, cstDateTime \' Create shell object Set objShell = CreateObject(\"WScript.Shell\") \' Get the current system date and time localDateTime = Now \' Get WMI service Set objWMIService = GetObject(\"winmgmts:\\\\.\\root\\cimv2\") \' Get the time zone information Set colTimeZones = objWMIService.ExecQuery(\"SELECT * FROM Win32_TimeZone\") \' Loop through the time zones to find the current time zone bias For Each objTimeZone in colTimeZones \' Calculate the CST time by subtracting the bias (in minutes) from the local time \' CST is UTC-6, so we need to add 6 hours (360 minutes) to the bias cstDateTime = DateAdd(\"n\", objTimeZone.Bias + 360, localDateTime) Exit For Next \' Output the CST date and time WScript.Echo cstDateTime''' ScriptOutput=> CSTDateandTime ScriptError=> ScriptError Text.SplitText.Split Text: CSTDateandTime StandardDelimiter: Text.StandardDelimiter.Space DelimiterTimes: 1 Result=> CST_Time SET Time TO CST_Time[1] LOOP WHILE (True) = (True) IF Time > $'''10:30:00''' THEN EXIT LOOP END @@copilotGeneratedAction: 'True' Scripting.RunVBScript.RunVBScript VBScriptCode: $'''\' This code has been generated by AI. Original prompt: \' Vbscript to convert system cureent data and time to CST Dim objShell, objWMIService, colTimeZones, objTimeZone, localDateTime, cstDateTime \' Create shell object Set objShell = CreateObject(\"WScript.Shell\") \' Get the current system date and time localDateTime = Now \' Get WMI service Set objWMIService = GetObject(\"winmgmts:\\\\.\\root\\cimv2\") \' Get the time zone information Set colTimeZones = objWMIService.ExecQuery(\"SELECT * FROM Win32_TimeZone\") \' Loop through the time zones to find the current time zone bias For Each objTimeZone in colTimeZones \' Calculate the CST time by subtracting the bias (in minutes) from the local time \' CST is UTC-6, so we need to add 6 hours (360 minutes) to the bias cstDateTime = DateAdd(\"n\", objTimeZone.Bias + 360, localDateTime) Exit For Next \' Output the CST date and time WScript.Echo cstDateTime''' ScriptOutput=> CSTDateandTime ScriptError=> ScriptError Text.SplitText.Split Text: CSTDateandTime StandardDelimiter: Text.StandardDelimiter.Space DelimiterTimes: 1 Result=> CST_Time SET Time TO CST_Time[1] END Outlook.Launch Instance=> OutlookInstance Outlook.SendEmailThroughOutlook.SendEmail Instance: OutlookInstance Account: $'''Varikutivishnu@acme.com''' SendTo: $'''jnarsin@tcs.com''' Subject: $'''Test''' Body: $'''Hi, Test, Regards, RPA''' IsBodyHtml: False IsDraft: False
Under review
Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.
In our never-ending quest to improve we are simplifying the forum hierarchy…
We are honored to recognize Ajay Kumar Gannamaneni as our Community Spotlight for December…
These are the community rock stars!
Stay up to date on forum activity by subscribing.
Michael E. Gernaey 503 Super User 2025 Season 2
Tomac 321 Moderator
abm abm 237 Most Valuable Professional