' Check BssCfgManip.htm in your SSH Server installation directory for the correct COM object name for your installation. ' The VBScript instance executing this script needs to run elevated, as administrator, to access SSH Server settings. Set cfg = CreateObject("BssCfg815.BssCfg815") cfg.keypairs.Load() pubkey = "my.server.address " & cfg.keypairs.GetItem(0).ExportPublicKeyToBase64String(cfg.enums.PublicKeyFormat.openSsh) ' Ask for output file to write to. sFileName = InputBox("Public key output file: ") If sFileName = "" Then WScript.Quit(0) ' Write to output file. Const ForWriting = 2 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(sFileName, ForWriting, True) f.WriteLine pubkey