Hente computerens navn

måske du kan bruge den her: http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/tools/wmimatic.asp

Dim Client
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")

Client = WshShell.RegRead("HKCU\Volatile Environment\clientname")
WshShell.Popup "ClientName= " & Client

//>Rune

Du kan oxo gøre sådan her:

Set WShell = CreateObject("WScript.Shell")
Set FileSystem = CreateObject("Scripting.FileSystemObject")

Set WNetwork = CreateObject("WScript.Network")
ServerName = WNetwork.ComputerName
Set WNetwork = Nothing
MsgBox(ServerName)

//>Rune

Thx 4 Poinz

//>Rune

Du kan også lave en

Set WshShell = CreateObject("WScript.Shell")

ConputerName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")

WshShell.Popup "ClientName= " & ComputerName