VncAddressBook vbs

Dim WSHShell
Dim MyDocuments

Set oNetList = GetObject ( "WinNT:" )
Set WSHShell = WScript.CreateObject("WScript.Shell")

MyDocuments = WSHShell.SpecialFolders("MyDocuments")

for each oNet in oNetList
    for each oComp in oNet
        if oComp.Class = "Computer" Then
            CreateConfig(lcase(oComp.Name))
        end if
    next
next

Sub CreateConfig(ServerHostName)
    Dim fso, tf
    Set fso = CreateObject("Scripting.FileSystemObject")

    strDirectory = MyDocuments & "\VncAddressBook\"

    If NOT fso.FolderExists(strDirectory) Then
        fso.CreateFolder(strDirectory)
    End If

    Set tf = fso.CreateTextFile(strDirectory & ServerHostName & ".vnc", True)

    tf.WriteLine("[connection]")
    tf.WriteLine("host=" & ServerHostName)
    tf.WriteLine("port=5900")
    tf.WriteLine("[options]")
    tf.WriteLine("use_encoding_0=1")
    tf.WriteLine("use_encoding_1=0")
    tf.WriteLine("use_encoding_2=1")
    tf.WriteLine("use_encoding_3=0")
    tf.WriteLine("use_encoding_4=1")
    tf.WriteLine("use_encoding_5=1")
    tf.WriteLine("use_encoding_6=1")
    tf.WriteLine("use_encoding_7=1")
    tf.WriteLine("use_encoding_8=1")
    tf.WriteLine("use_encoding_9=1")
    tf.WriteLine("use_encoding_10=0")
    tf.WriteLine("use_encoding_11=0")
    tf.WriteLine("use_encoding_12=0")
    tf.WriteLine("use_encoding_13=0")
    tf.WriteLine("use_encoding_14=0")
    tf.WriteLine("use_encoding_15=0")
    tf.WriteLine("use_encoding_16=1")
    tf.WriteLine("preferred_encoding=5")
    tf.WriteLine("restricted=0")
    tf.WriteLine("viewonly=0")
    tf.WriteLine("nostatus=0")
    tf.WriteLine("nohotkeys=0")
    tf.WriteLine("showtoolbar=1")
    tf.WriteLine("AutoScaling=0")
    tf.WriteLine("fullscreen=0")
    tf.WriteLine("autoDetect=0")
    tf.WriteLine("8bit=1")
    tf.WriteLine("shared=1")
    tf.WriteLine("swapmouse=0")
    tf.WriteLine("belldeiconify=0")
    tf.WriteLine("emulate3=0")
    tf.WriteLine("emulate3timeout=100")
    tf.WriteLine("emulate3fuzz=4")
    tf.WriteLine("disableclipboard=0")
    tf.WriteLine("localcursor=2")
    tf.WriteLine("Scaling=0")
    tf.WriteLine("scale_num=1")
    tf.WriteLine("scale_den=1")
    tf.WriteLine("cursorshape=0")
    tf.WriteLine("noremotecursor=0")
    tf.WriteLine("compresslevel=6")
    tf.WriteLine("quality=6")
    tf.WriteLine("ServerScale=1")
    tf.WriteLine("EnableCache=0")
    tf.WriteLine("QuickOption=2")
    tf.WriteLine("UseDSMPlugin=0")
    tf.WriteLine("UseProxy=0")
    tf.WriteLine("DSMPlugin=")
    tf.Close
End Sub