Ermittelt die Zeitzone eines Rechners
GFU-Schulungen [Anzeige]
VB.NET 2017/2015/2013 AufbauNach dieser Schulung können Sie mittels objektorientierter Modelle in VB.NET 2017/2015/2013 wiederverwendbare Elemente eigenständig erstellen.
VB.NET AufbauSie verfügen nach der Schulung über fundierte Kenntnisse in der Arbeit mit objektorientierten Modellen in VB.NET und können wiederverwendbare Komponenten eigenständig erzeugen.
Private Function GetTimeZone(ByVal Computer As String) As String
Dim objWMIService As Object
Dim objItems As Object
Dim objItem As Object
GetTimeZone = ""
objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
objItems = objWMIService.ExecQuery("SELECT * FROM Win32_TimeZone")
For Each objItem In objItems
Return objItem.Caption
Next
objWMIService = Nothing
objItems = Nothing
objItem = Nothing
End Function
Kommentare zum Snippet